weblocks-examples

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

weblocks-demo

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-test". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-dev". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/9a3099492dd1228936298aa3959d4333b7fe50b4/cl-fad-20210923-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210923-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20210923-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-who/5ef6d9b6609320a8f11655194b9139f5e0a1555a/cl-who-20210923-git/cl-who.asd" contains definition for system "cl-who-test". Please only define "cl-who" and secondary systems with a name starting with "cl-who/" (e.g. "cl-who/test") in that file.
WARNING: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "weblocks-utils" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20210923-git/weblocks-utils.asd", using NIL instead
WARNING: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "clache" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/clache/2c09d8401c5e225019bb7393ca899e0056f31790/clache-20210923-git/clache.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-store/56287a99cc9fad823ca8f01b6e29f27d515b2571/cl-store-20210923-git/cl-store.asd" contains definition for system "cl-store-tests". Please only define "cl-store" and secondary systems with a name starting with "cl-store/" (e.g. "cl-store/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/collectors/1e386552e3b2900580e3972c46152fb776dcc28a/collectors-20210923-git/collectors.asd" contains definition for system "collectors-test". Please only define "collectors" and secondary systems with a name starting with "collectors/" (e.g. "collectors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/symbol-munger/a8589c60f470b8b280eacd9c983d96bc5f337341/symbol-munger-20210923-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20210923-git/cl-tidy.asd
; in: SETF (COMPONENT-PROPERTY (FIND-SYSTEM :CL-TIDY) :WEBSITE)
;     (SETF (ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY
;            (ASDF/SYSTEM:FIND-SYSTEM :CL-TIDY) :WEBSITE)
;             "http://github.com/gonzojive/cl-tidy")
; --> LET* 
; ==>
;   (FUNCALL #'(SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) #:NEW1 #:G848
;            :WEBSITE)
; 
; caught STYLE-WARNING:
;   DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function (SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) -- please update your code to use a newer API.

; 
; caught STYLE-WARNING:
;   Call to (COMMON-LISP:SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function (SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) -- please update your code to use a newer API.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20210923-git/cl-tidy.asd" contains definition for system "cl-tidy.doc". Please only define "cl-tidy" and secondary systems with a name starting with "cl-tidy/" (e.g. "cl-tidy/test") in that file.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN
WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE-AS-LIST)
WARNING: redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN
;         (WEBLOCKS::W &OPTIONAL TYPE)
;       (:DOCUMENTATION "Return a list of all widgets (all types) who are
;   children of w (e.g. may be rendered when w is rendered).")
;       (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL)
;       (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE)
;        (IF TYPE
;            (CDR (ASSOC TYPE #))
;            (REDUCE #'APPEND
;                    (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN)
;                    :FROM-END T :KEY #'CDR))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE)
;           "NIL unless defined otherwise."
;           NIL)))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (TYPE T WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC (SETF WIDGET-CHILDREN)
;     (HANDLER-CASE (WEBLOCKS::UPDATE-WIDGET-TREE)
;                   (WEBLOCKS::HTTP-NOT-FOUND NIL
;                    (HUNCHENTOOT:ABORT-REQUEST-HANDLER
;                     (WEBLOCKS:PAGE-NOT-FOUND-HANDLER
;                      WEBLOCKS::*CURRENT-WEBAPP*))))
; 
; note: can't open-code test of unknown type HTTP-NOT-FOUND

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC RENDER-WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION "Renders the widget's children.")
;       (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (WARN
;         "Cannot update the widget children of ~S because it is not a widget."
;         WEBLOCKS::OBJ))
;       (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;        "Render all children. Specialize this method if you only want
;   to render widgets of a certain type."
;        (MAPC
;         (LAMBDA (WEBLOCKS::CHILD)
;           (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS))
;         (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN
;                           (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WARN
;            "Cannot update the widget children of ~S because it is not a widget."
;            WEBLOCKS::OBJ))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD MARK-DIRTY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::MARK-DIRTY
;       ((WEBLOCKS::W WEBLOCKS::WIDGET) &KEY
;        (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;        (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED))
;       (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;       (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED
;            (ERROR
;             "You specified both PROPAGATE and PUTP as arguments to MARK-DIRTY. Are you kidding me?"))
;       (UNLESS (WEBLOCKS::WIDGET-DIRTY-P WEBLOCKS::W)
;         (PUSHNEW WEBLOCKS::W WEBLOCKS::*DIRTY-WIDGETS*)
;         (VALUES T
;                 (WHEN (AND WEBLOCKS::PROPAGATE #)
;                   (MAPC #'WEBLOCKS::MARK-DIRTY #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::MARK-DIRTY
;                           (WEBLOCKS::WIDGET))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &KEY
;          (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;          (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &KEY # #)
;           (DECLARE #)
;           (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED #)
;           (UNLESS # # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::W WEBLOCKS::WIDGET))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable PUTP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFUN COPY-WIDGET-TREE
;     (MAPC #'WEBLOCKS::COPY-WIDGET-TREE WEBLOCKS::SLOTNAME)
; 
; caught WARNING:
;   Derived type of #:G8 is (MEMBER CHILDREN), conflicting with its asserted type LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD RENDER-WIDGET-BODY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY
;       :AROUND
;       ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;       "Record profiling information."
;       (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS
;        (CONCATENATE 'STRING "rendering widget "
;                     (PRINC-TO-STRING WEBLOCKS::WIDGET)))
;       (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                     (PRINC-TO-STRING WEBLOCKS::WIDGET))
;         (CALL-NEXT-METHOD)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
;          (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS::RENDER-WIDGET-BODY
;          (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #)
;          (WEBLOCKS:TIMING #
;            #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                   (PRINC-TO-STRING WEBLOCKS::WIDGET))
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G549) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G546) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018C48483}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018C48483}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1018C48483}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {10058978E3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {10058978E3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-demo")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100589017B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100585285B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-demo" "weblocks-demo")
23: (DEPCHECK::MAGIC "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YPSrRo3Z/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YPSrRo3Z/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-YPSrRo3Z/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 4 STYLE-WARNING conditions
;   printed 3 notes

weblocks-clsql-demo

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-test". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-dev". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/9a3099492dd1228936298aa3959d4333b7fe50b4/cl-fad-20210923-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210923-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20210923-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-who/5ef6d9b6609320a8f11655194b9139f5e0a1555a/cl-who-20210923-git/cl-who.asd" contains definition for system "cl-who-test". Please only define "cl-who" and secondary systems with a name starting with "cl-who/" (e.g. "cl-who/test") in that file.
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN
WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN RENDER-LINK
;     (DEFUN WEBLOCKS::RENDER-LINK
;            (WEBLOCKS::ACTION PARENSCRIPT:LABEL
;             &KEY (WEBLOCKS::AJAXP T) WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE
;             WEBLOCKS::RENDER-FN)
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
;   default), the link will be rendered in such a way that the action will
;   be invoked via AJAX or will fall back to a regular request if
;   JavaScrip... {1017F6DAFF}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (LET* ((*PRINT-PRETTY* NIL)
;              (WEBLOCKS::ACTION-CODE
;               (WEBLOCKS::FUNCTION-OR-ACTION->ACTION WEBLOCKS::ACTION))
;              (WEBLOCKS::URL (WEBLOCKS::MAKE-ACTION-URL WEBLOCKS::ACTION-CODE)))
;         (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID :CLASS
;                                  CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                  (WHEN WEBLOCKS::AJAXP
;                                    (FORMAT NIL
;                                            "initiateAction(\"~A\", \"~A\"); return false;"
;                                            WEBLOCKS::ACTION-CODE #))
;                                  :CONTENT ...)
;         (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;          WEBLOCKS-STORES:ID :CLASS CLASS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-LINK
;         (WEBLOCKS::ACTION PARENSCRIPT:LABEL &KEY (WEBLOCKS::AJAXP T)
;          WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE WEBLOCKS::RENDER-FN)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
; default), the link will be rendered in such a way that the action will
; be invoked via AJAX or will fall back to a regular request if
; JavaScrip... {1017F6DAFF}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (BLOCK WEBLOCKS::RENDER-LINK
;         (LET* ((*PRINT-PRETTY* NIL) (WEBLOCKS::ACTION-CODE #) (WEBLOCKS::URL #))
;           (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID
;                                    :CLASS CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                    (WHEN WEBLOCKS::AJAXP #) :CONTENT ...)
;           (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;            WEBLOCKS-STORES:ID :CLASS CLASS))))
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

;     (FUNCALL
;      (OR WEBLOCKS::RENDER-FN
;          (LAMBDA (PARENSCRIPT:LABEL) (CL-WHO:HTM (CL-WHO:STR #))))
;      PARENSCRIPT:LABEL)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN BUTTON-WT
;     (DEFUN WEBLOCKS::BUTTON-WT
;            (
;             &KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;             WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID :CLASS
;          CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::BUTTON-WT
;         (&KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::BUTTON-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID
;            :CLASS CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...))))
; 
; caught STYLE-WARNING:
;   The variable SUBMITP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN RENDER-INPUT-FIELD
;     (DEFUN WEBLOCKS::RENDER-INPUT-FIELD
;            (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE
;             &KEY WEBLOCKS-STORES:ID CLASS WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE
;             METABANG.UTILITIES:SIZE WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR
;             WEBLOCKS::TABINDEX ...)
;       (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID :TYPE
;                                TYPE :CLASS CLASS :NAME
;                                (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                :DISABLED ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-INPUT-FIELD
;         (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE &KEY WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE METABANG.UTILITIES:SIZE
;          WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR WEBLOCKS::TABINDEX ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::RENDER-INPUT-FIELD
;         (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID
;                                  :TYPE TYPE :CLASS CLASS :NAME
;                                  (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                  :DISABLED ...)))
; 
; caught STYLE-WARNING:
;   The variable STYLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TABINDEX is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "utils" "html">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/bundling.lisp
; in: DEFUN BUNDLE-SOME-DEPENDENCIES
;     (TYPEP WEBLOCKS::DEP WEBLOCKS::DEPENDENCY-TYPE)
; 
; note: unable to optimize because: can't open-code test of non-constant type

;     (FIND WEBLOCKS::PATH WEBLOCKS::EXCEPTIONS :TEST #'STRING-EQUAL)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (STRING= "css" (PATHNAME-TYPE WEBLOCKS::PATH))
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR SIMPLE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR SIMPLE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a SIMPLE-STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/acceptor.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE
;     (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE
;       :AFTER
;       ((WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR) &REST WEBLOCKS::INITARGS)
;       "Set the session secret to prevent a Hunchentoot warning emitted upon
;     starting the acceptor."
;       (UNLESS (BOUNDP 'HUNCHENTOOT:*SESSION-SECRET*)
;         (HUNCHENTOOT:RESET-SESSION-SECRET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (WEBLOCKS::WEBLOCKS-ACCEPTOR))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::INST &REST
;          WEBLOCKS::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::INST &REST WEBLOCKS::INITARGS)
;           "Set the session secret to prevent a Hunchentoot warning emitted upon
;   starting the acceptor."
;           (UNLESS # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::INST))
;       (DECLARE (IGNORABLE WEBLOCKS::INST))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::INST)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::INST) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "acceptor">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/actions.lisp
; in: DEFUN DEFAULT-EXPIRED-ACTION-HANDLER
;     (DEFUN WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;            (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Default value of *expired-action-handler*. Redirects to application
;   root and sets a query parameter 'timeout' to true, so that the home
;   page may display a relevant message, if necessary."
;       (WEBLOCKS::REDIRECT
;        (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t") :DEFER
;        NIL))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Default value of *expired-action-handler*. Redirects to application
; root and sets a query parameter 'timeout' to true, so that the home
; page may display a relevant message, if necessary."
;       (BLOCK WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (WEBLOCKS::REDIRECT
;          (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t")
;          :DEFER NIL)))
; 
; caught STYLE-WARNING:
;   The variable APP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "actions">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD PRINT-OBJECT
;     (FORMAT STREAM "~A" (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN SORT-DEPENDENCIES-BY-TYPE
;     (STABLE-SORT WEBLOCKS::DEPENDENCY-LIST #'WEBLOCKS::DEPENDENCIES-LESSP)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN BUNDLE-DEPENDENCIES
;     (FIND :STYLESHEET WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FIND :SCRIPT WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFGENERIC COMPACT-DEPENDENCIES
;     (WEBLOCKS:TIMING "sort-deps"
;       (WEBLOCKS::SORT-DEPENDENCIES-BY-TYPE
;        (WEBLOCKS:TIMING "bundle-deps"
;          (WEBLOCKS::BUNDLE-DEPENDENCIES
;           (WEBLOCKS:TIMING "prune-deps"
;             #)))))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "bundle-deps"
;       (WEBLOCKS::BUNDLE-DEPENDENCIES
;        (WEBLOCKS:TIMING "prune-deps"
;          (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "prune-deps"
;       (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:LINK :REL "stylesheet" :TYPE "text/css" :HREF
;        (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :MEDIA
;        (WEBLOCKS::STYLESHEET-MEDIA WEBLOCKS::OBJ)))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "rel"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "rel" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "rel"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "type" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "href"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "href" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "href"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "media"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "media" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "media"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:SCRIPT :SRC (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :TYPE
;        "text/javascript" ""))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "src"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "src" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "src"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G7 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "type" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G7 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN MAKE-LOCAL-DEPENDENCY
;     (FIND TYPE (WEBLOCKS::VERSION-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FIND TYPE (WEBLOCKS::GZIP-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/application.lisp
; in: DEFUN DELETE-WEBAPP-SESSION-VALUE
;     (DEFUN WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;            (WEBLOCKS::KEY
;             &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;             (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Clear the session value for the currently running webapp.
;   KEY is compared using EQUAL."
;       (LET ((WEBLOCKS::WEBAPP-SESSION
;              (HUNCHENTOOT:SESSION-VALUE # HUNCHENTOOT:SESSION)))
;         (WHEN WEBLOCKS::WEBAPP-SESSION
;           (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (WEBLOCKS::KEY &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;          (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Clear the session value for the currently running webapp.
; KEY is compared using EQUAL."
;       (BLOCK WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (LET ((WEBLOCKS::WEBAPP-SESSION #))
;           (WHEN WEBLOCKS::WEBAPP-SESSION
;             (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION)))))
; 
; caught STYLE-WARNING:
;   The variable WEBAPP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "application">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/page-template.lisp
; in: DEFMETHOD RENDER-PAGE
;     (WEBLOCKS:TIMING "compact-dependencies"
;       (WEBLOCKS:COMPACT-DEPENDENCIES
;        (APPEND (WEBLOCKS:WEBAPP-APPLICATION-DEPENDENCIES)
;                WEBLOCKS::*PAGE-DEPENDENCIES*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G69) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G66) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-hooks.lisp
; in: EVAL-WHEN (:LOAD-TOPLEVEL)
;     (WEBLOCKS:TIMING "html parts processing"
;       (PROGN
;        (WEBLOCKS-UTIL:UPDATE-HTML-PARTS-CONNECTIONS)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-HASH*)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-CONTEXT-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-CONTEXT-HASH*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G19) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G16) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-HTTP-ERROR
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::HANDLE-HTTP-ERROR
;       ((WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP) WEBLOCKS::CODE &OPTIONAL
;        CONDITION)
;       (WEBLOCKS::WITH-ERROR-PAGE-HTML ((CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #))
;                                        (CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::HANDLE-HTTP-ERROR
;                           (WEBLOCKS:WEBLOCKS-WEBAPP T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::APP WEBLOCKS::CODE
;          &OPTIONAL CONDITION)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::APP WEBLOCKS::CODE &OPTIONAL CONDITION)
;           (WEBLOCKS::WITH-ERROR-PAGE-HTML #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::CODE))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::APP))
;       (DECLARE (TYPE T WEBLOCKS::CODE))
;       (DECLARE (IGNORABLE WEBLOCKS::CODE WEBLOCKS::APP))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable CONDITION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-ERROR-CONDITION
;     (BACKTRACE-AS-LIST)
; 
; caught STYLE-WARNING:
;   The function SB-DEBUG:BACKTRACE-AS-LIST has been deprecated as of SBCL version 1.2.15.
;   
;   Use SB-DEBUG:LIST-BACKTRACE instead.
;   In future SBCL versions SB-DEBUG:BACKTRACE-AS-LIST will signal a full warning at compile-time.
;   See also:
;     The SBCL Manual, Node "Deprecation Conditions"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "error-handler">
WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE-AS-LIST)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (HANDLER-BIND ((COM.METABANG.TRIVIAL-TIMEOUT:TIMEOUT-ERROR
;                     (LAMBDA (WEBLOCKS::C) (ERROR "Your request timed out."))))
;       (COM.METABANG.TRIVIAL-TIMEOUT:WITH-TIMEOUT (WEBLOCKS::*REQUEST-TIMEOUT*)
;         (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request prelude")
;         (UNWIND-PROTECT
;             (LET* (# # # #)
;               (DOLIST # # # #)
;               WEBLOCKS::RESULT)
;           (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request complete/idle"))))
; --> SB-KERNEL::%HANDLER-BIND LET SB-INT:DX-FLET FLET 
; ==>
;   (#:H0 (WEBLOCKS::C) (ERROR "Your request timed out."))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (WEBLOCKS:TIMING "handle-client-request"
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G97) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G94) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (WEBLOCKS:TIMING "action processing (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-ACTION)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-ACTION) (WEBLOCKS::EVAL-ACTION))
;       (WEBLOCKS::EVAL-HOOK :POST-ACTION))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G158) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G155) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "rendering (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-RENDER)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-RENDER)
;                                     (IF (WEBLOCKS:AJAX-REQUEST-P)
;                                         (WEBLOCKS::HANDLE-AJAX-REQUEST
;                                          WEBLOCKS::APP)
;                                         (WEBLOCKS::HANDLE-NORMAL-REQUEST
;                                          WEBLOCKS::APP)))
;       (WEBLOCKS::EVAL-HOOK :POST-RENDER))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G168) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G165) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-AJAX-REQUEST
;     (WEBLOCKS:TIMING "handle-ajax-request"
;       (WEBLOCKS::UPDATE-LOCATION-HASH-DEPENDENTS)
;       (WEBLOCKS::RENDER-DIRTY-WIDGETS))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G24) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G21) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-NORMAL-REQUEST
;     (HANDLER-CASE
;      (WEBLOCKS:TIMING "tree shakedown"
;        (WEBLOCKS::UPDATE-WIDGET-TREE))
;      (WEBLOCKS::HTTP-NOT-FOUND NIL
;       (RETURN-FROM WEBLOCKS::HANDLE-NORMAL-REQUEST
;         (WEBLOCKS:PAGE-NOT-FOUND-HANDLER WEBLOCKS::APP))))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-KERNEL::%HANDLER-BIND LET SB-INT:DX-FLET FLET SB-INT:DX-LET LET CONS 
; ==>
;   (LIST
;    (CONS
;     (SB-INT:NAMED-LAMBDA (SB-KERNEL::%HANDLER-BIND WEBLOCKS::HTTP-NOT-FOUND)
;         (SB-KERNEL::C)
;       (DECLARE (OPTIMIZE #))
;       (TYPEP SB-KERNEL::C 'WEBLOCKS::HTTP-NOT-FOUND))
;     (THE (SB-KERNEL:FUNCTION-DESIGNATOR (CONDITION)) #'#:H0)))
; 
; note: can't open-code test of unknown type HTTP-NOT-FOUND

;     (WEBLOCKS:TIMING "page render"
;       (WEBLOCKS:RENDER-PAGE WEBLOCKS::APP))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G77) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G74) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "tree shakedown"
;       (WEBLOCKS::UPDATE-WIDGET-TREE))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G87) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G84) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "widget tree rendering"
;       (WEBLOCKS::RENDER-WIDGET (WEBLOCKS:ROOT-WIDGET)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G97) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G94) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "request-handler">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/linguistic/grammar.lisp
; in: DEFUN DEFAULT-TRANSLATION-FUNCTION
;     (IGNORE WEBLOCKS::ARGS)
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "linguistic" "grammar">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widget-translation.lisp
; in: DEFGENERIC WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-TRANSLATION-TABLE
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (781)) Widget translation table is an alist with all strings used in widget which should be translated.
;                      The idea of this table is to hold every string so we just translate this table to tr... {102F5F000F}>)
;       (:METHOD-COMBINATION APPEND)
;       (:METHOD APPEND (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                               . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET
;                                                                  'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE
;                                                                  WEBLOCKS::OBJ)
;              WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY
;                                      (IF #
;                                          #
;                                          WEBLOCKS::VALUE)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS 
; ==>
;   (LIST
;    (DEFMETHOD WEBLOCKS::WIDGET-TRANSLATION-TABLE APPEND
;               (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;      (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                             . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET
;                                                                'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE
;                                                                WEBLOCKS::OBJ)
;            WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY
;                                    (IF #
;                                        #
;                                        WEBLOCKS::VALUE)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widget-translation">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW) &REST WEBLOCKS::ARGS)
;       (APPLY #'APPEND
;              (REMOVE-DUPLICATES
;               (WEBLOCKS::MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS::OBJ NIL) :TEST
;               #'EQUAL)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) (APPLY # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;        (SLOT-VALUE WEBLOCKS::OBJ 'WEBLOCKS::PRESENTATION)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       #<(SIMPLE-ARRAY CHARACTER
;          (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;      or when current label is equal to generated one. 
;      First case is for 'widget-translate', it will... {102FB7443F}>
;       (WITH-SLOTS (WEBLOCKS::SLOT-NAME PARENSCRIPT:LABEL)
;           WEBLOCKS::OBJ
;         (UNLESS PARENSCRIPT:LABEL
;           (RETURN-FROM WEBLOCKS:WIDGET-TRANSLATION-TABLE `(#)))
;         (WHEN (STRING= PARENSCRIPT:LABEL (WEBLOCKS-UTIL:TRANSLATE #))
;           `((:LABEL . ,#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::INLINE-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           #<(SIMPLE-ARRAY CHARACTER
;              (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;    or when current label is equal to generated one. 
;    First case is for 'widget-translate', it will... {102FB7443F}>
;           (WITH-SLOTS #
;               WEBLOCKS::OBJ
;             #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/scaffold.lisp
; in: DEFUN INSPECT-TYPESPEC
;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'OR 'NULL WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y 'NULL) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'AND WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "scaffold">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::TEXT-PRESENTATION)) &REST WEBLOCKS::ARGS)
;       `((:NULL-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Not Specified"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::TEXT-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::TEXT-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::TEXT-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "dataview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-VALIDATION-SUMMARY
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; 
; caught STYLE-WARNING:
;   reading an ignored variable: VIEW
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-FORM-VIEW-BUTTONS
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       `((:REQUIRED-INDICATOR
;          . ,(WEBLOCKS-UTIL:TRANSLATE WEBLOCKS::*DEFAULT-REQUIRED-INDICATOR*))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::FORM-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "formview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/parser.lisp
; in: DEFMETHOD VIEW-ARGUMENT-QUOTING-STRATEGY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY
;       ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;       :LIST)
; --> DEFMETHOD PROGN 
; ==>
;   (EVAL-WHEN (:EXECUTE)
;     (SB-PCL::%DEFMETHOD-EXPANDER WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY NIL
;                                  ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;                                  (:LIST)))
; 
; caught STYLE-WARNING:
;   redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "parser">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/request-deserialization.lisp
; in: DEFUN UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;     (DEFUN WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;            (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE
;             WEBLOCKS::ARGS)
;       (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;         (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS
;                (LAMBDA (WEBLOCKS:FIELD-INFO)
;                  (LET* #
;                    #))
;                WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::ARGS)
;         (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS))))
; 
; caught STYLE-WARNING:
;   The variable CLASS-STORE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "request-deserialization">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/template-form-view.lisp
; in: DEFUN TEMPLATE-FORM-VIEW-BODY-WT
;     (DEFUN WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;            (
;             &REST WEBLOCKS::ARGS
;             &KEY WEBLOCKS::CAPTION CLASS-NAME WEBLOCKS::VALIDATION-SUMMARY
;             WEBLOCKS:FORM-VIEW-BUTTONS WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION
;             WEBLOCKS::FORM-ID WEBLOCKS::HEADER-CLASS ...)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID WEBLOCKS::FORM-ID
;                                   :CLASS WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                   WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                   WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                   WEBLOCKS::USE-AJAX-P)
;           (WHEN WEBLOCKS::CAPTION (CL-WHO:HTM #))
;           (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;           (:UL
;            (LOOP PARENSCRIPT:FOR # WEBLOCKS::ON WEBLOCKS::FIELDS-DATA :BY #'CDDR
;                  DO #))
;           (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (&REST WEBLOCKS::ARGS &KEY WEBLOCKS::CAPTION CLASS-NAME
;          WEBLOCKS::VALIDATION-SUMMARY WEBLOCKS:FORM-VIEW-BUTTONS
;          WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION WEBLOCKS::FORM-ID
;          WEBLOCKS::HEADER-CLASS ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID
;                                     WEBLOCKS::FORM-ID :CLASS
;                                     WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                     WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                     WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                     WEBLOCKS::USE-AJAX-P)
;             (WHEN WEBLOCKS::CAPTION #)
;             (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;             (:UL #)
;             (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS)))))
; 
; caught STYLE-WARNING:
;   The variable CONTENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/template-form-view.lisp
; in: DEFMETHOD WITH-VIEW-HEADER
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WITH-VIEW-HEADER
;       ((WEBLOCKS:VIEW WEBLOCKS::TEMPLATE-FORM-VIEW) WEBLOCKS::OBJ
;        WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;        (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;        (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-PREFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-SUFFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW))
;        WEBLOCKS::VALIDATION-ERRORS ...)
;       (DECLARE
;        (SPECIAL WEBLOCKS:*ON-AJAX-COMPLETE-SCRIPTS*
;         WEBLOCKS:*FORM-SUBMIT-DEPENDENCIES*))
;       (WITH-SLOTS (WEBLOCKS::TEMPLATE WEBLOCKS::ADDITIONAL-VARIABLES-FN)
;           WEBLOCKS:VIEW
;         (LET ((WEBLOCKS::FORM-ID #)
;               (WEBLOCKS::FIELDS-DATA)
;               (WEBLOCKS::FIELD-VALUES-DATA)
;               (WEBLOCKS::LABELS-DATA))
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # # # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (APPLY #'WEBLOCKS-UTIL:RENDER-WT
;                  (LIST* WEBLOCKS::TEMPLATE # :METHOD METHOD :ACTION
;                         WEBLOCKS::ACTION :HEADER-CLASS # :ENCTYPE #
;                         :EXTRA-SUBMIT-CODE ...))))
;       (WHEN (WEBLOCKS:FORM-VIEW-FOCUS-P WEBLOCKS:VIEW)
;         (WEBLOCKS:SEND-SCRIPT (PARENSCRIPT:PS* `(#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WITH-VIEW-HEADER
;                           (WEBLOCKS::TEMPLATE-FORM-VIEW T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:VIEW WEBLOCKS::OBJ
;          WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;          (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;          (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;          (WEBLOCKS::FIELDS-PREFIX-FN
;           (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::WIDGET WEBLOCKS::BODY-FN
;              &REST WEBLOCKS::ARGS
;              &KEY # # # # WEBLOCKS::VALIDATION-ERRORS ...)
;           (DECLARE #)
;           (WITH-SLOTS #
;               WEBLOCKS:VIEW
;             #)
;           (WHEN # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::BODY-FN))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (TYPE T WEBLOCKS::BODY-FN))
;       (DECLARE (TYPE T WEBLOCKS::WIDGET))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable FIELDS-PREFIX-FN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FIELDS-SUFFIX-FN is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "template-form-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::SEQUENCE-VIEW)) &REST WEBLOCKS::ARGS)
;       `((:EMPTY-MESSAGE
;          . ,(WEBLOCKS-UTIL:TRANSLATE "No information available."))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::SEQUENCE-VIEW)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::SEQUENCE-VIEW))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::SEQUENCE-VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "sequence-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/tableview.lisp
; in: DEFGENERIC RENDER-VIEW-FIELD-HEADER
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;         (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION
;          WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY
;          WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (:DOCUMENTATION "Renders a table header cell.")
;       (:METHOD
;        ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD)
;         (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET
;         WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS
;         &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;        (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT
;                                 (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD
;                                       :WIDGET WEBLOCKS::WIDGET :PRESENTATION
;                                       WEBLOCKS:PRESENTATION :OBJECT
;                                       WEBLOCKS::OBJ)
;                                 :ROW-CLASS
;                                 (IF WEBLOCKS:FIELD-INFO
;                                     (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME
;                                      WEBLOCKS:FIELD-INFO)
;                                     (WEBLOCKS:ATTRIBUTIZE-NAME #))
;                                 :LABEL
;                                 (WEBLOCKS-UTIL:TRANSLATE
;                                  (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS 
; ==>
;   (LIST
;    (DEFMETHOD WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;               ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD)
;                (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET
;                WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ
;                &REST WEBLOCKS::ARGS
;                &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;      (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT
;                               (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD
;                                     :WIDGET WEBLOCKS::WIDGET :PRESENTATION
;                                     WEBLOCKS:PRESENTATION :OBJECT
;                                     WEBLOCKS::OBJ)
;                               :ROW-CLASS
;                               (IF WEBLOCKS:FIELD-INFO
;                                   (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME
;                                    WEBLOCKS:FIELD-INFO)
;                                   (WEBLOCKS:ATTRIBUTIZE-NAME #))
;                               :LABEL
;                               (WEBLOCKS-UTIL:TRANSLATE
;                                (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "tableview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::PREDICATE-PRESENTATION)) &REST
;        WEBLOCKS::ARGS)
;       `((:TRUE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Yes"))
;         (:FALSE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "No"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::PREDICATE-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::PREDICATE-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::PREDICATE-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "boolean">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/presentations/widget.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::WIDGET-PRESENTATION)
;        WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST
;        WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;       (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;              (IF WEBLOCKS:FIELD-INFO
;                  #
;                  #))
;             (WEBLOCKS::FIELD-WIDGET (SETF #)))
;         (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable INTERMEDIATE-VALUES is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK 
; ==>
;   (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;          (IF WEBLOCKS:FIELD-INFO
;              (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;              (WEBLOCKS:ATTRIBUTIZE-NAME #)))
;         (WEBLOCKS::FIELD-WIDGET
;          (SB-C::WITH-SOURCE-FORM (SETF #) (SB-C::WITH-SOURCE-FORM # #))))
;     (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET))
; 
; caught STYLE-WARNING:
;   The variable ATTRIBUTIZED-SLOT-NAME is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "presentations" "widget">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       ((WEBLOCKS::VALUE NULL)
;        (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::VALUE NULL))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "password">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN
;         (WEBLOCKS::W &OPTIONAL TYPE)
;       (:DOCUMENTATION "Return a list of all widgets (all types) who are
;   children of w (e.g. may be rendered when w is rendered).")
;       (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL)
;       (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE)
;        (IF TYPE
;            (CDR (ASSOC TYPE #))
;            (REDUCE #'APPEND
;                    (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN)
;                    :FROM-END T :KEY #'CDR))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE)
;           "NIL unless defined otherwise."
;           NIL)))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (TYPE T WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC (SETF WIDGET-CHILDREN)
;     (HANDLER-CASE (WEBLOCKS::UPDATE-WIDGET-TREE)
;                   (WEBLOCKS::HTTP-NOT-FOUND NIL
;                    (HUNCHENTOOT:ABORT-REQUEST-HANDLER
;                     (WEBLOCKS:PAGE-NOT-FOUND-HANDLER
;                      WEBLOCKS::*CURRENT-WEBAPP*))))
; 
; note: can't open-code test of unknown type HTTP-NOT-FOUND

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC RENDER-WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION "Renders the widget's children.")
;       (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (WARN
;         "Cannot update the widget children of ~S because it is not a widget."
;         WEBLOCKS::OBJ))
;       (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;        "Render all children. Specialize this method if you only want
;   to render widgets of a certain type."
;        (MAPC
;         (LAMBDA (WEBLOCKS::CHILD)
;           (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS))
;         (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN
;                           (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WARN
;            "Cannot update the widget children of ~S because it is not a widget."
;            WEBLOCKS::OBJ))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD MARK-DIRTY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::MARK-DIRTY
;       ((WEBLOCKS::W WEBLOCKS::WIDGET) &KEY
;        (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;        (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED))
;       (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;       (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED
;            (ERROR
;             "You specified both PROPAGATE and PUTP as arguments to MARK-DIRTY. Are you kidding me?"))
;       (UNLESS (WEBLOCKS::WIDGET-DIRTY-P WEBLOCKS::W)
;         (PUSHNEW WEBLOCKS::W WEBLOCKS::*DIRTY-WIDGETS*)
;         (VALUES T
;                 (WHEN (AND WEBLOCKS::PROPAGATE #)
;                   (MAPC #'WEBLOCKS::MARK-DIRTY #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::MARK-DIRTY
;                           (WEBLOCKS::WIDGET))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &KEY
;          (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;          (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &KEY # #)
;           (DECLARE #)
;           (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED #)
;           (UNLESS # # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::W WEBLOCKS::WIDGET))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable PUTP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFUN COPY-WIDGET-TREE
;     (MAPC #'WEBLOCKS::COPY-WIDGET-TREE WEBLOCKS::SLOTNAME)
; 
; caught WARNING:
;   Derived type of #:G8 is (MEMBER CHILDREN), conflicting with its asserted type LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD RENDER-WIDGET-BODY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY
;       :AROUND
;       ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;       "Record profiling information."
;       (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS
;        (CONCATENATE 'STRING "rendering widget "
;                     (PRINC-TO-STRING WEBLOCKS::WIDGET)))
;       (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                     (PRINC-TO-STRING WEBLOCKS::WIDGET))
;         (CALL-NEXT-METHOD)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
;          (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS::RENDER-WIDGET-BODY
;          (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #)
;          (WEBLOCKS:TIMING #
;            #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                   (PRINC-TO-STRING WEBLOCKS::WIDGET))
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G549) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G546) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1040EA8173}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1040EA8173}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C331853}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C331853}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C331853}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {1005897623}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {1005897623}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100588FDFB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100585244B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-clsql-demo" "weblocks-clsql-demo")
23: (DEPCHECK::MAGIC "weblocks-clsql-demo" "weblocks-clsql-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-bXnp53Ud/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-clsql-demo" "weblocks-clsql-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-bXnp53Ud/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-bXnp53Ud/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 43 STYLE-WARNING conditions
;   printed 77 notes

simple-blog

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-test". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/dd8922ee966104ffc6fe917392a4c407fb259935/hunchentoot-v1.3.0/hunchentoot.asd" contains definition for system "hunchentoot-dev". Please only define "hunchentoot" and secondary systems with a name starting with "hunchentoot/" (e.g. "hunchentoot/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/9a3099492dd1228936298aa3959d4333b7fe50b4/cl-fad-20210923-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210923-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20210923-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-who/5ef6d9b6609320a8f11655194b9139f5e0a1555a/cl-who-20210923-git/cl-who.asd" contains definition for system "cl-who-test". Please only define "cl-who" and secondary systems with a name starting with "cl-who/" (e.g. "cl-who/test") in that file.
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html-parts.lisp
; in: DEFUN UPDATE-CURRENT-HTML-PART-CHILDREN
;     (WEBLOCKS-UTIL:MD5 WEBLOCKS-UTIL::VALUE)
; 
; note: deleting unreachable code

;     (PUSH WEBLOCKS-UTIL::VALUE WEBLOCKS-UTIL::*CURRENT-HTML-PART-CHILDREN*)
; --> LET* 
; ==>
;   WEBLOCKS-UTIL::VALUE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/templates.lisp
; in: DEFUN CALCULATE-TEMPLATE-PRIORITY
;     (LET ((WEBLOCKS-UTIL::NAME (CAR WEBLOCKS-UTIL::TEMPLATE))
;           (WEBLOCKS-UTIL::CONTEXT (COPY-TREE (CDR WEBLOCKS-UTIL::TEMPLATE))))
;       (OR
;        (LOOP WEBLOCKS-UTIL::FOR (WEBLOCKS-UTIL::KEY
;                                  WEBLOCKS-UTIL::VALUE) WEBLOCKS-UTIL::ON WEBLOCKS-UTIL::CONTEXT :BY #'CDDR
;              WEBLOCKS-UTIL::SUM (COND (# #) (# #) (# #) (T 0)))
;        0))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-util" "src" "utils" "templates">
WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN RENDER-LINK
;     (DEFUN WEBLOCKS::RENDER-LINK
;            (WEBLOCKS::ACTION PARENSCRIPT:LABEL
;             &KEY (WEBLOCKS::AJAXP T) WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE
;             WEBLOCKS::RENDER-FN)
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
;   default), the link will be rendered in such a way that the action will
;   be invoked via AJAX or will fall back to a regular request if
;   JavaScrip... {1019C51C1F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (LET* ((*PRINT-PRETTY* NIL)
;              (WEBLOCKS::ACTION-CODE
;               (WEBLOCKS::FUNCTION-OR-ACTION->ACTION WEBLOCKS::ACTION))
;              (WEBLOCKS::URL (WEBLOCKS::MAKE-ACTION-URL WEBLOCKS::ACTION-CODE)))
;         (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID :CLASS
;                                  CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                  (WHEN WEBLOCKS::AJAXP
;                                    (FORMAT NIL
;                                            "initiateAction(\"~A\", \"~A\"); return false;"
;                                            WEBLOCKS::ACTION-CODE #))
;                                  :CONTENT ...)
;         (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;          WEBLOCKS-STORES:ID :CLASS CLASS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-LINK
;         (WEBLOCKS::ACTION PARENSCRIPT:LABEL &KEY (WEBLOCKS::AJAXP T)
;          WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE WEBLOCKS::RENDER-FN)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
; default), the link will be rendered in such a way that the action will
; be invoked via AJAX or will fall back to a regular request if
; JavaScrip... {1019C51C1F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (BLOCK WEBLOCKS::RENDER-LINK
;         (LET* ((*PRINT-PRETTY* NIL) (WEBLOCKS::ACTION-CODE #) (WEBLOCKS::URL #))
;           (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID
;                                    :CLASS CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                    (WHEN WEBLOCKS::AJAXP #) :CONTENT ...)
;           (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;            WEBLOCKS-STORES:ID :CLASS CLASS))))
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

;     (FUNCALL
;      (OR WEBLOCKS::RENDER-FN
;          (LAMBDA (PARENSCRIPT:LABEL) (CL-WHO:HTM (CL-WHO:STR #))))
;      PARENSCRIPT:LABEL)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN BUTTON-WT
;     (DEFUN WEBLOCKS::BUTTON-WT
;            (
;             &KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;             WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID :CLASS
;          CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::BUTTON-WT
;         (&KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::BUTTON-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID
;            :CLASS CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...))))
; 
; caught STYLE-WARNING:
;   The variable SUBMITP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/utils/html.lisp
; in: DEFUN RENDER-INPUT-FIELD
;     (DEFUN WEBLOCKS::RENDER-INPUT-FIELD
;            (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE
;             &KEY WEBLOCKS-STORES:ID CLASS WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE
;             METABANG.UTILITIES:SIZE WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR
;             WEBLOCKS::TABINDEX ...)
;       (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID :TYPE
;                                TYPE :CLASS CLASS :NAME
;                                (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                :DISABLED ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-INPUT-FIELD
;         (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE &KEY WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE METABANG.UTILITIES:SIZE
;          WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR WEBLOCKS::TABINDEX ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::RENDER-INPUT-FIELD
;         (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID
;                                  :TYPE TYPE :CLASS CLASS :NAME
;                                  (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                  :DISABLED ...)))
; 
; caught STYLE-WARNING:
;   The variable STYLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TABINDEX is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "utils" "html">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/bundling.lisp
; in: DEFUN BUNDLE-SOME-DEPENDENCIES
;     (TYPEP WEBLOCKS::DEP WEBLOCKS::DEPENDENCY-TYPE)
; 
; note: unable to optimize because: can't open-code test of non-constant type

;     (FIND WEBLOCKS::PATH WEBLOCKS::EXCEPTIONS :TEST #'STRING-EQUAL)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (STRING= "css" (PATHNAME-TYPE WEBLOCKS::PATH))
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR SIMPLE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR SIMPLE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a SIMPLE-STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/acceptor.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE
;     (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE
;       :AFTER
;       ((WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR) &REST WEBLOCKS::INITARGS)
;       "Set the session secret to prevent a Hunchentoot warning emitted upon
;     starting the acceptor."
;       (UNLESS (BOUNDP 'HUNCHENTOOT:*SESSION-SECRET*)
;         (HUNCHENTOOT:RESET-SESSION-SECRET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (WEBLOCKS::WEBLOCKS-ACCEPTOR))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::INST &REST
;          WEBLOCKS::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::INST &REST WEBLOCKS::INITARGS)
;           "Set the session secret to prevent a Hunchentoot warning emitted upon
;   starting the acceptor."
;           (UNLESS # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::INST))
;       (DECLARE (IGNORABLE WEBLOCKS::INST))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::INST)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::INST) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "acceptor">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/actions.lisp
; in: DEFUN DEFAULT-EXPIRED-ACTION-HANDLER
;     (DEFUN WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;            (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Default value of *expired-action-handler*. Redirects to application
;   root and sets a query parameter 'timeout' to true, so that the home
;   page may display a relevant message, if necessary."
;       (WEBLOCKS::REDIRECT
;        (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t") :DEFER
;        NIL))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Default value of *expired-action-handler*. Redirects to application
; root and sets a query parameter 'timeout' to true, so that the home
; page may display a relevant message, if necessary."
;       (BLOCK WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (WEBLOCKS::REDIRECT
;          (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t")
;          :DEFER NIL)))
; 
; caught STYLE-WARNING:
;   The variable APP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "actions">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD PRINT-OBJECT
;     (FORMAT STREAM "~A" (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN SORT-DEPENDENCIES-BY-TYPE
;     (STABLE-SORT WEBLOCKS::DEPENDENCY-LIST #'WEBLOCKS::DEPENDENCIES-LESSP)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN BUNDLE-DEPENDENCIES
;     (FIND :STYLESHEET WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FIND :SCRIPT WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFGENERIC COMPACT-DEPENDENCIES
;     (WEBLOCKS:TIMING "sort-deps"
;       (WEBLOCKS::SORT-DEPENDENCIES-BY-TYPE
;        (WEBLOCKS:TIMING "bundle-deps"
;          (WEBLOCKS::BUNDLE-DEPENDENCIES
;           (WEBLOCKS:TIMING "prune-deps"
;             #)))))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "bundle-deps"
;       (WEBLOCKS::BUNDLE-DEPENDENCIES
;        (WEBLOCKS:TIMING "prune-deps"
;          (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "prune-deps"
;       (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:LINK :REL "stylesheet" :TYPE "text/css" :HREF
;        (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :MEDIA
;        (WEBLOCKS::STYLESHEET-MEDIA WEBLOCKS::OBJ)))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "rel"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "rel" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "rel"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "type" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "href"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "href" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "href"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "media"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "media" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "media"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G9 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:SCRIPT :SRC (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :TYPE
;        "text/javascript" ""))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "src"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "src" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "src"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G7 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* "type" CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; ==>
;   (FORMAT WEBLOCKS:*WEBLOCKS-OUTPUT-STREAM* " ~A=~C~A~C" "type"
;           CL-WHO:*ATTRIBUTE-QUOTE-CHAR* #:G7 CL-WHO:*ATTRIBUTE-QUOTE-CHAR*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/dependencies.lisp
; in: DEFUN MAKE-LOCAL-DEPENDENCY
;     (FIND TYPE (WEBLOCKS::VERSION-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

;     (FIND TYPE (WEBLOCKS::GZIP-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/application.lisp
; in: DEFUN DELETE-WEBAPP-SESSION-VALUE
;     (DEFUN WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;            (WEBLOCKS::KEY
;             &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;             (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Clear the session value for the currently running webapp.
;   KEY is compared using EQUAL."
;       (LET ((WEBLOCKS::WEBAPP-SESSION
;              (HUNCHENTOOT:SESSION-VALUE # HUNCHENTOOT:SESSION)))
;         (WHEN WEBLOCKS::WEBAPP-SESSION
;           (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (WEBLOCKS::KEY &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;          (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Clear the session value for the currently running webapp.
; KEY is compared using EQUAL."
;       (BLOCK WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (LET ((WEBLOCKS::WEBAPP-SESSION #))
;           (WHEN WEBLOCKS::WEBAPP-SESSION
;             (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION)))))
; 
; caught STYLE-WARNING:
;   The variable WEBAPP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "application">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/page-template.lisp
; in: DEFMETHOD RENDER-PAGE
;     (WEBLOCKS:TIMING "compact-dependencies"
;       (WEBLOCKS:COMPACT-DEPENDENCIES
;        (APPEND (WEBLOCKS:WEBAPP-APPLICATION-DEPENDENCIES)
;                WEBLOCKS::*PAGE-DEPENDENCIES*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G69) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G66) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-hooks.lisp
; in: EVAL-WHEN (:LOAD-TOPLEVEL)
;     (WEBLOCKS:TIMING "html parts processing"
;       (PROGN
;        (WEBLOCKS-UTIL:UPDATE-HTML-PARTS-CONNECTIONS)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-HASH*)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-CONTEXT-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-CONTEXT-HASH*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G19) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G16) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-HTTP-ERROR
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::HANDLE-HTTP-ERROR
;       ((WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP) WEBLOCKS::CODE &OPTIONAL
;        CONDITION)
;       (WEBLOCKS::WITH-ERROR-PAGE-HTML ((CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #))
;                                        (CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::HANDLE-HTTP-ERROR
;                           (WEBLOCKS:WEBLOCKS-WEBAPP T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::APP WEBLOCKS::CODE
;          &OPTIONAL CONDITION)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::APP WEBLOCKS::CODE &OPTIONAL CONDITION)
;           (WEBLOCKS::WITH-ERROR-PAGE-HTML #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::CODE))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::APP))
;       (DECLARE (TYPE T WEBLOCKS::CODE))
;       (DECLARE (IGNORABLE WEBLOCKS::CODE WEBLOCKS::APP))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable CONDITION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-ERROR-CONDITION
;     (BACKTRACE-AS-LIST)
; 
; caught STYLE-WARNING:
;   The function SB-DEBUG:BACKTRACE-AS-LIST has been deprecated as of SBCL version 1.2.15.
;   
;   Use SB-DEBUG:LIST-BACKTRACE instead.
;   In future SBCL versions SB-DEBUG:BACKTRACE-AS-LIST will signal a full warning at compile-time.
;   See also:
;     The SBCL Manual, Node "Deprecation Conditions"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "error-handler">
WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE-AS-LIST)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (HANDLER-BIND ((COM.METABANG.TRIVIAL-TIMEOUT:TIMEOUT-ERROR
;                     (LAMBDA (WEBLOCKS::C) (ERROR "Your request timed out."))))
;       (COM.METABANG.TRIVIAL-TIMEOUT:WITH-TIMEOUT (WEBLOCKS::*REQUEST-TIMEOUT*)
;         (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request prelude")
;         (UNWIND-PROTECT
;             (LET* (# # # #)
;               (DOLIST # # # #)
;               WEBLOCKS::RESULT)
;           (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request complete/idle"))))
; --> SB-KERNEL::%HANDLER-BIND LET SB-INT:DX-FLET FLET 
; ==>
;   (#:H0 (WEBLOCKS::C) (ERROR "Your request timed out."))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (WEBLOCKS:TIMING "handle-client-request"
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G97) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G94) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (WEBLOCKS:TIMING "action processing (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-ACTION)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-ACTION) (WEBLOCKS::EVAL-ACTION))
;       (WEBLOCKS::EVAL-HOOK :POST-ACTION))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G158) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G155) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "rendering (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-RENDER)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-RENDER)
;                                     (IF (WEBLOCKS:AJAX-REQUEST-P)
;                                         (WEBLOCKS::HANDLE-AJAX-REQUEST
;                                          WEBLOCKS::APP)
;                                         (WEBLOCKS::HANDLE-NORMAL-REQUEST
;                                          WEBLOCKS::APP)))
;       (WEBLOCKS::EVAL-HOOK :POST-RENDER))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G168) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G165) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-AJAX-REQUEST
;     (WEBLOCKS:TIMING "handle-ajax-request"
;       (WEBLOCKS::UPDATE-LOCATION-HASH-DEPENDENTS)
;       (WEBLOCKS::RENDER-DIRTY-WIDGETS))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G24) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G21) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-NORMAL-REQUEST
;     (HANDLER-CASE
;      (WEBLOCKS:TIMING "tree shakedown"
;        (WEBLOCKS::UPDATE-WIDGET-TREE))
;      (WEBLOCKS::HTTP-NOT-FOUND NIL
;       (RETURN-FROM WEBLOCKS::HANDLE-NORMAL-REQUEST
;         (WEBLOCKS:PAGE-NOT-FOUND-HANDLER WEBLOCKS::APP))))
; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY 
; --> SB-KERNEL::%HANDLER-BIND LET SB-INT:DX-FLET FLET SB-INT:DX-LET LET CONS 
; ==>
;   (LIST
;    (CONS
;     (SB-INT:NAMED-LAMBDA (SB-KERNEL::%HANDLER-BIND WEBLOCKS::HTTP-NOT-FOUND)
;         (SB-KERNEL::C)
;       (DECLARE (OPTIMIZE #))
;       (TYPEP SB-KERNEL::C 'WEBLOCKS::HTTP-NOT-FOUND))
;     (THE (SB-KERNEL:FUNCTION-DESIGNATOR (CONDITION)) #'#:H0)))
; 
; note: can't open-code test of unknown type HTTP-NOT-FOUND

;     (WEBLOCKS:TIMING "page render"
;       (WEBLOCKS:RENDER-PAGE WEBLOCKS::APP))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G77) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G74) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "tree shakedown"
;       (WEBLOCKS::UPDATE-WIDGET-TREE))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G87) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G84) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "widget tree rendering"
;       (WEBLOCKS::RENDER-WIDGET (WEBLOCKS:ROOT-WIDGET)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G97) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G94) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "request-handler">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/linguistic/grammar.lisp
; in: DEFUN DEFAULT-TRANSLATION-FUNCTION
;     (IGNORE WEBLOCKS::ARGS)
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "linguistic" "grammar">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widget-translation.lisp
; in: DEFGENERIC WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-TRANSLATION-TABLE
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (781)) Widget translation table is an alist with all strings used in widget which should be translated.
;                      The idea of this table is to hold every string so we just translate this table to tr... {10313298AF}>)
;       (:METHOD-COMBINATION APPEND)
;       (:METHOD APPEND (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                               . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET
;                                                                  'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE
;                                                                  WEBLOCKS::OBJ)
;              WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY
;                                      (IF #
;                                          #
;                                          WEBLOCKS::VALUE)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS 
; ==>
;   (LIST
;    (DEFMETHOD WEBLOCKS::WIDGET-TRANSLATION-TABLE APPEND
;               (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;      (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                             . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET
;                                                                'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE
;                                                                WEBLOCKS::OBJ)
;            WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY
;                                    (IF #
;                                        #
;                                        WEBLOCKS::VALUE)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widget-translation">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW) &REST WEBLOCKS::ARGS)
;       (APPLY #'APPEND
;              (REMOVE-DUPLICATES
;               (WEBLOCKS::MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS::OBJ NIL) :TEST
;               #'EQUAL)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) (APPLY # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;        (SLOT-VALUE WEBLOCKS::OBJ 'WEBLOCKS::PRESENTATION)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       #<(SIMPLE-ARRAY CHARACTER
;          (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;      or when current label is equal to generated one. 
;      First case is for 'widget-translate', it will... {10318B000F}>
;       (WITH-SLOTS (WEBLOCKS::SLOT-NAME PARENSCRIPT:LABEL)
;           WEBLOCKS::OBJ
;         (UNLESS PARENSCRIPT:LABEL
;           (RETURN-FROM WEBLOCKS:WIDGET-TRANSLATION-TABLE `(#)))
;         (WHEN (STRING= PARENSCRIPT:LABEL (WEBLOCKS-UTIL:TRANSLATE #))
;           `((:LABEL . ,#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::INLINE-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           #<(SIMPLE-ARRAY CHARACTER
;              (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;    or when current label is equal to generated one. 
;    First case is for 'widget-translate', it will... {10318B000F}>
;           (WITH-SLOTS #
;               WEBLOCKS::OBJ
;             #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/view/scaffold.lisp
; in: DEFUN INSPECT-TYPESPEC
;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'OR 'NULL WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y 'NULL) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'AND WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "scaffold">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::TEXT-PRESENTATION)) &REST WEBLOCKS::ARGS)
;       `((:NULL-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Not Specified"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::TEXT-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::TEXT-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::TEXT-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "dataview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-VALIDATION-SUMMARY
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; 
; caught STYLE-WARNING:
;   reading an ignored variable: VIEW
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-FORM-VIEW-BUTTONS
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/formview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       `((:REQUIRED-INDICATOR
;          . ,(WEBLOCKS-UTIL:TRANSLATE WEBLOCKS::*DEFAULT-REQUIRED-INDICATOR*))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::FORM-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "formview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/parser.lisp
; in: DEFMETHOD VIEW-ARGUMENT-QUOTING-STRATEGY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY
;       ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;       :LIST)
; --> DEFMETHOD PROGN 
; ==>
;   (EVAL-WHEN (:EXECUTE)
;     (SB-PCL::%DEFMETHOD-EXPANDER WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY NIL
;                                  ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;                                  (:LIST)))
; 
; caught STYLE-WARNING:
;   redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "parser">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/request-deserialization.lisp
; in: DEFUN UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;     (DEFUN WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;            (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE
;             WEBLOCKS::ARGS)
;       (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;         (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS
;                (LAMBDA (WEBLOCKS:FIELD-INFO)
;                  (LET* #
;                    #))
;                WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::ARGS)
;         (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS))))
; 
; caught STYLE-WARNING:
;   The variable CLASS-STORE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "request-deserialization">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/template-form-view.lisp
; in: DEFUN TEMPLATE-FORM-VIEW-BODY-WT
;     (DEFUN WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;            (
;             &REST WEBLOCKS::ARGS
;             &KEY WEBLOCKS::CAPTION CLASS-NAME WEBLOCKS::VALIDATION-SUMMARY
;             WEBLOCKS:FORM-VIEW-BUTTONS WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION
;             WEBLOCKS::FORM-ID WEBLOCKS::HEADER-CLASS ...)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID WEBLOCKS::FORM-ID
;                                   :CLASS WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                   WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                   WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                   WEBLOCKS::USE-AJAX-P)
;           (WHEN WEBLOCKS::CAPTION (CL-WHO:HTM #))
;           (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;           (:UL
;            (LOOP PARENSCRIPT:FOR # WEBLOCKS::ON WEBLOCKS::FIELDS-DATA :BY #'CDDR
;                  DO #))
;           (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (&REST WEBLOCKS::ARGS &KEY WEBLOCKS::CAPTION CLASS-NAME
;          WEBLOCKS::VALIDATION-SUMMARY WEBLOCKS:FORM-VIEW-BUTTONS
;          WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION WEBLOCKS::FORM-ID
;          WEBLOCKS::HEADER-CLASS ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID
;                                     WEBLOCKS::FORM-ID :CLASS
;                                     WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                     WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                     WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                     WEBLOCKS::USE-AJAX-P)
;             (WHEN WEBLOCKS::CAPTION #)
;             (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;             (:UL #)
;             (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS)))))
; 
; caught STYLE-WARNING:
;   The variable CONTENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/formview/template-form-view.lisp
; in: DEFMETHOD WITH-VIEW-HEADER
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WITH-VIEW-HEADER
;       ((WEBLOCKS:VIEW WEBLOCKS::TEMPLATE-FORM-VIEW) WEBLOCKS::OBJ
;        WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;        (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;        (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-PREFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-SUFFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW))
;        WEBLOCKS::VALIDATION-ERRORS ...)
;       (DECLARE
;        (SPECIAL WEBLOCKS:*ON-AJAX-COMPLETE-SCRIPTS*
;         WEBLOCKS:*FORM-SUBMIT-DEPENDENCIES*))
;       (WITH-SLOTS (WEBLOCKS::TEMPLATE WEBLOCKS::ADDITIONAL-VARIABLES-FN)
;           WEBLOCKS:VIEW
;         (LET ((WEBLOCKS::FORM-ID #)
;               (WEBLOCKS::FIELDS-DATA)
;               (WEBLOCKS::FIELD-VALUES-DATA)
;               (WEBLOCKS::LABELS-DATA))
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # # # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (APPLY #'WEBLOCKS-UTIL:RENDER-WT
;                  (LIST* WEBLOCKS::TEMPLATE # :METHOD METHOD :ACTION
;                         WEBLOCKS::ACTION :HEADER-CLASS # :ENCTYPE #
;                         :EXTRA-SUBMIT-CODE ...))))
;       (WHEN (WEBLOCKS:FORM-VIEW-FOCUS-P WEBLOCKS:VIEW)
;         (WEBLOCKS:SEND-SCRIPT (PARENSCRIPT:PS* `(#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WITH-VIEW-HEADER
;                           (WEBLOCKS::TEMPLATE-FORM-VIEW T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:VIEW WEBLOCKS::OBJ
;          WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;          (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;          (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;          (WEBLOCKS::FIELDS-PREFIX-FN
;           (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::WIDGET WEBLOCKS::BODY-FN
;              &REST WEBLOCKS::ARGS
;              &KEY # # # # WEBLOCKS::VALIDATION-ERRORS ...)
;           (DECLARE #)
;           (WITH-SLOTS #
;               WEBLOCKS:VIEW
;             #)
;           (WHEN # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::BODY-FN))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (TYPE T WEBLOCKS::BODY-FN))
;       (DECLARE (TYPE T WEBLOCKS::WIDGET))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable FIELDS-PREFIX-FN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FIELDS-SUFFIX-FN is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "template-form-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::SEQUENCE-VIEW)) &REST WEBLOCKS::ARGS)
;       `((:EMPTY-MESSAGE
;          . ,(WEBLOCKS-UTIL:TRANSLATE "No information available."))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::SEQUENCE-VIEW)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::SEQUENCE-VIEW))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::SEQUENCE-VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "sequence-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/tableview.lisp
; in: DEFGENERIC RENDER-VIEW-FIELD-HEADER
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;         (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION
;          WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY
;          WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (:DOCUMENTATION "Renders a table header cell.")
;       (:METHOD
;        ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD)
;         (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET
;         WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS
;         &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;        (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT
;                                 (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD
;                                       :WIDGET WEBLOCKS::WIDGET :PRESENTATION
;                                       WEBLOCKS:PRESENTATION :OBJECT
;                                       WEBLOCKS::OBJ)
;                                 :ROW-CLASS
;                                 (IF WEBLOCKS:FIELD-INFO
;                                     (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME
;                                      WEBLOCKS:FIELD-INFO)
;                                     (WEBLOCKS:ATTRIBUTIZE-NAME #))
;                                 :LABEL
;                                 (WEBLOCKS-UTIL:TRANSLATE
;                                  (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS 
; ==>
;   (LIST
;    (DEFMETHOD WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;               ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD)
;                (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET
;                WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ
;                &REST WEBLOCKS::ARGS
;                &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;      (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT
;                               (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD
;                                     :WIDGET WEBLOCKS::WIDGET :PRESENTATION
;                                     WEBLOCKS:PRESENTATION :OBJECT
;                                     WEBLOCKS::OBJ)
;                               :ROW-CLASS
;                               (IF WEBLOCKS:FIELD-INFO
;                                   (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME
;                                    WEBLOCKS:FIELD-INFO)
;                                   (WEBLOCKS:ATTRIBUTIZE-NAME #))
;                               :LABEL
;                               (WEBLOCKS-UTIL:TRANSLATE
;                                (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "tableview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::PREDICATE-PRESENTATION)) &REST
;        WEBLOCKS::ARGS)
;       `((:TRUE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Yes"))
;         (:FALSE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "No"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::PREDICATE-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::PREDICATE-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::PREDICATE-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "boolean">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/presentations/widget.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::WIDGET-PRESENTATION)
;        WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST
;        WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;       (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;              (IF WEBLOCKS:FIELD-INFO
;                  #
;                  #))
;             (WEBLOCKS::FIELD-WIDGET (SETF #)))
;         (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable INTERMEDIATE-VALUES is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK 
; ==>
;   (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;          (IF WEBLOCKS:FIELD-INFO
;              (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;              (WEBLOCKS:ATTRIBUTIZE-NAME #)))
;         (WEBLOCKS::FIELD-WIDGET
;          (SB-C::WITH-SOURCE-FORM (SETF #) (SB-C::WITH-SOURCE-FORM # #))))
;     (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET))
; 
; caught STYLE-WARNING:
;   The variable ATTRIBUTIZED-SLOT-NAME is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "presentations" "widget">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       ((WEBLOCKS::VALUE NULL)
;        (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::VALUE NULL))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "password">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN
;         (WEBLOCKS::W &OPTIONAL TYPE)
;       (:DOCUMENTATION "Return a list of all widgets (all types) who are
;   children of w (e.g. may be rendered when w is rendered).")
;       (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL)
;       (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE)
;        (IF TYPE
;            (CDR (ASSOC TYPE #))
;            (REDUCE #'APPEND
;                    (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN)
;                    :FROM-END T :KEY #'CDR))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE)
;           "NIL unless defined otherwise."
;           NIL)))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (TYPE T WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC (SETF WIDGET-CHILDREN)
;     (HANDLER-CASE (WEBLOCKS::UPDATE-WIDGET-TREE)
;                   (WEBLOCKS::HTTP-NOT-FOUND NIL
;                    (HUNCHENTOOT:ABORT-REQUEST-HANDLER
;                     (WEBLOCKS:PAGE-NOT-FOUND-HANDLER
;                      WEBLOCKS::*CURRENT-WEBAPP*))))
; 
; note: can't open-code test of unknown type HTTP-NOT-FOUND

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC RENDER-WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION "Renders the widget's children.")
;       (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (WARN
;         "Cannot update the widget children of ~S because it is not a widget."
;         WEBLOCKS::OBJ))
;       (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;        "Render all children. Specialize this method if you only want
;   to render widgets of a certain type."
;        (MAPC
;         (LAMBDA (WEBLOCKS::CHILD)
;           (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS))
;         (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN
;                           (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WARN
;            "Cannot update the widget children of ~S because it is not a widget."
;            WEBLOCKS::OBJ))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD MARK-DIRTY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::MARK-DIRTY
;       ((WEBLOCKS::W WEBLOCKS::WIDGET) &KEY
;        (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;        (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED))
;       (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;       (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED
;            (ERROR
;             "You specified both PROPAGATE and PUTP as arguments to MARK-DIRTY. Are you kidding me?"))
;       (UNLESS (WEBLOCKS::WIDGET-DIRTY-P WEBLOCKS::W)
;         (PUSHNEW WEBLOCKS::W WEBLOCKS::*DIRTY-WIDGETS*)
;         (VALUES T
;                 (WHEN (AND WEBLOCKS::PROPAGATE #)
;                   (MAPC #'WEBLOCKS::MARK-DIRTY #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::MARK-DIRTY
;                           (WEBLOCKS::WIDGET))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &KEY
;          (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;          (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &KEY # #)
;           (DECLARE #)
;           (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED #)
;           (UNLESS # # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::W WEBLOCKS::WIDGET))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable PUTP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFUN COPY-WIDGET-TREE
;     (MAPC #'WEBLOCKS::COPY-WIDGET-TREE WEBLOCKS::SLOTNAME)
; 
; caught WARNING:
;   Derived type of #:G8 is (MEMBER CHILDREN), conflicting with its asserted type LIST.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20210923-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD RENDER-WIDGET-BODY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY
;       :AROUND
;       ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;       "Record profiling information."
;       (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS
;        (CONCATENATE 'STRING "rendering widget "
;                     (PRINC-TO-STRING WEBLOCKS::WIDGET)))
;       (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                     (PRINC-TO-STRING WEBLOCKS::WIDGET))
;         (CALL-NEXT-METHOD)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
;          (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS::RENDER-WIDGET-BODY
;          (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #)
;          (WEBLOCKS:TIMING #
;            #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                   (PRINC-TO-STRING WEBLOCKS::WIDGET))
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE 
; ==>
;   (>= (TRULY-THE RATIONAL #:G549) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.

; ==>
;   (>= (TRULY-THE RATIONAL #:G546) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM.
;       etc.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1040E902B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1040E902B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E10A6C3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E10A6C3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E10A6C3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {1005899263}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {1005899263}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "simple-blog")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005891BCB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100585421B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "simple-blog" "simple-blog")
23: (DEPCHECK::MAGIC "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-q7le0vlh/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-q7le0vlh/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-q7le0vlh/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 44 STYLE-WARNING conditions
;   printed 79 notes