hh-web

SBCL 1.4.4 / ASDF 3.3.1

hh-web-tests

WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd" contains definition for system "hh-web-tests". Please only define "hh-web" and secondary systems with a name starting with "hh-web/" (e.g. "hh-web/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web-tests" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd" contains definition for system "hh-web-tests". Please only define "hh-web" and secondary systems with a name starting with "hh-web/" (e.g. "hh-web/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web-tests" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd" contains definition for system "hh-web-tests". Please only define "hh-web" and secondary systems with a name starting with "hh-web/" (e.g. "hh-web/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web-tests" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/4fb0bf93d3cf3720e0bf0b222d01df8df1012857/hunchentoot-v1.2.38/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/4fb0bf93d3cf3720e0bf0b222d01df8df1012857/hunchentoot-v1.2.38/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-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20180203-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/c651a53bfe4663b51bce20ffdc29f380f4c70408/cl-fad-20180203-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/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180203-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/d08cfa551a2f185431304236cd56db2fbb98b864/flexi-streams-20180203-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+ssl/fa8185379e05f4a8a1100cfb7594235030d5013a/cl+ssl-20180203-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180203-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180203-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-utf-8/a6eb987246e5f233c6b9c4b8b15edbbe2770d848/trivial-utf-8-20180203-darcs/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180203-git/dev/log5.lisp
; in: DEFUN DEBUGGING
;     (DEFUN LOG5:DEBUGGING
;            (
;             &OPTIONAL LOG5:CATEGORY-SPEC
;             &KEY (LOG5:OUTPUT-SPEC NIL LOG5::SUPPLIED?) LOG5::RESET?)
;       (LET ((LOG5:OUTPUT-SPEC (WHEN LOG5:OUTPUT-SPEC #)))
;         (UNLESS (FIND 'LOG5:MESSAGE LOG5:OUTPUT-SPEC) (SETF LOG5:OUTPUT-SPEC #))
;         (LET ((LOG5::CONSOLE #))
;           (WHEN LOG5::RESET? (SETF #))
;           (WHEN LOG5:CATEGORY-SPEC
;             (LET #
;               #))
;           (LOG5::INITIALIZE-CATEGORY-SPEC LOG5::CONSOLE)
;           (LOG5::SPECS LOG5::CONSOLE))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA LOG5:DEBUGGING
;         (&OPTIONAL LOG5:CATEGORY-SPEC &KEY
;          (LOG5:OUTPUT-SPEC NIL LOG5::SUPPLIED?) LOG5::RESET?)
;       (BLOCK LOG5:DEBUGGING
;         (LET ((LOG5:OUTPUT-SPEC #))
;           (UNLESS (FIND 'LOG5:MESSAGE LOG5:OUTPUT-SPEC) (SETF #))
;           (LET (#)
;             (WHEN LOG5::RESET? #)
;             (WHEN LOG5:CATEGORY-SPEC #)
;             (LOG5::INITIALIZE-CATEGORY-SPEC LOG5::CONSOLE)
;             (LOG5::SPECS LOG5::CONSOLE)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL CATEGORY-SPEC &KEY (OUTPUT-SPEC NIL SUPPLIED?) RESET?)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180203-git/dev/log5.lisp
; in: DEFMACRO LOG-IF
;     (DEFMACRO LOG5:LOG-IF
;               (LOG5::PREDICATE LOG5:CATEGORY-SPEC LOG5:MESSAGE &REST LOG5::ARGS)
;       (DECLARE (DYNAMIC-EXTENT LOG5::ARGS))
;       (IF (LOG5::%LOG-P LOG5:CATEGORY-SPEC)
;           `(WHEN ,LOG5::PREDICATE
;              (LOG5:LOG-FOR ,LOG5:CATEGORY-SPEC ,LOG5:MESSAGE ,@LOG5::ARGS))
;           `(VALUES)))
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING* LET* 
; ==>
;   #:G0
; 
; note: could not stack allocate #:G0 in: (DEFMACRO LOG-IF (PREDICATE CATEGORY-SPEC MESSAGE &REST ARGS) (DECLARE (DYNAMIC-EXTENT ARGS)) (IF (%LOG-P CATEGORY-SPEC) (SB-INT:QUASIQUOTE (WHEN #S(SB-IMPL::COMMA :EXPR PREDICATE :KIND 0) (LOG-FOR #S(SB-IMPL::COMMA :EXPR CATEGORY-SPEC :KIND 0) #S(SB-IMPL::COMMA :EXPR MESSAGE :KIND 0) #S(SB-IMPL::COMMA :EXPR ARGS :KIND 2)))) (SB-INT:QUASIQUOTE (VALUES))))
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "log5" "dev" "log5">
WARNING: redefining ZPB-TTF::LOCATION in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tags.lisp
; in: DEFMACRO PUTEND
;     (DEFMACRO HH-WEB::PUTEND (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE)
;       "Append some-object to the end of the list in some-place.
;      Modifies some-place.
;      "
;       `(SETF ,HH-WEB::SOME-PLACE
;                (NCONC ,HH-WEB::SOME-PLACE (LIST ,HH-WEB::SOME-OBJECT))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'HH-WEB::PUTEND
;                    (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION HH-WEB::PUTEND)
;                        (#:EXPR #:ENV)
;                      "Append some-object to the end of the list in some-place.
;    Modifies some-place.
;    "
;                      (DECLARE
;                       (SB-C::LAMBDA-LIST
;                        (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE)))
;                      (DECLARE (IGNORE #:ENV))
;                      (SB-INT:NAMED-DS-BIND (:MACRO HH-WEB::PUTEND . DEFMACRO)
;                          (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE)
;                          (CDR #:EXPR)
;                        (BLOCK HH-WEB::PUTEND `(SETF #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   redefining HH-WEB::PUTEND in DEFMACRO

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tags.lisp
; in: DEFMACRO PUTENDNEW
;     (DEFMACRO HH-WEB::PUTENDNEW
;               (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE
;                &KEY ((:TEST HH-WEB::TEST) 'EQUAL))
;       `(IF (NOT
;             (MEMBER ,HH-WEB::SOME-OBJECT ,HH-WEB::SOME-PLACE :TEST
;                     ,HH-WEB::TEST))
;            (HH-WEB::PUTEND ,HH-WEB::SOME-OBJECT ,HH-WEB::SOME-PLACE)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'HH-WEB::PUTENDNEW
;                    (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION HH-WEB::PUTENDNEW)
;                        (#:EXPR #:ENV)
;                      (DECLARE
;                       (SB-C::LAMBDA-LIST
;                        (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE &KEY #)))
;                      (DECLARE (IGNORE #:ENV))
;                      (SB-INT:NAMED-DS-BIND (:MACRO HH-WEB::PUTENDNEW . DEFMACRO)
;                          (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE &KEY
;                           (# 'EQUAL))
;                          (CDR #:EXPR)
;                        (BLOCK HH-WEB::PUTENDNEW
;                          `(IF #
;                               #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   redefining HH-WEB::PUTENDNEW in DEFMACRO

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tags.lisp
; in: DEFMACRO UNION-ORDERED
;     (DEFMACRO HH-WEB::UNION-ORDERED (HH-WEB::SOME-LIST HH-WEB::SOME-PLACE)
;       `(DOLIST (HH-WEB::ITEM ,HH-WEB::SOME-LIST)
;          (HH-WEB::PUTENDNEW HH-WEB::ITEM ,HH-WEB::SOME-PLACE :TEST 'EQUAL)))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'HH-WEB::UNION-ORDERED
;                    (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION HH-WEB::UNION-ORDERED)
;                        (#:EXPR #:ENV)
;                      (DECLARE
;                       (SB-C::LAMBDA-LIST
;                        (HH-WEB::SOME-LIST HH-WEB::SOME-PLACE)))
;                      (DECLARE (IGNORE #:ENV))
;                      (SB-INT:NAMED-DS-BIND (:MACRO HH-WEB::UNION-ORDERED
;                                             . DEFMACRO)
;                          (HH-WEB::SOME-LIST HH-WEB::SOME-PLACE)
;                          (CDR #:EXPR)
;                        (BLOCK HH-WEB::UNION-ORDERED `(DOLIST # #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   redefining HH-WEB::UNION-ORDERED in DEFMACRO

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tags.lisp
; in: DEFMACRO DEFHTMLTAG
;     (LET ((HH-WEB::ALL-ATTRIBUTES
;            (LET (#)
;              (LOOP HH-WEB::FOR HH-WEB::ATTRIBUTE HH-WEB::IN #
;                    DO #)
;              HH-WEB::UNIQUE-ATTRIBUTES)))
;       `(LET ((HH-WEB::DEFINITION
;               (MAKE-INSTANCE 'HH-WEB::TAG-DEFINITION :NAME ',HH-WEB::NAME)))
;          (SETF (HH-WEB:TAG-NAME HH-WEB::DEFINITION)
;                  ,(IF HH-WEB::TAG
;                       HH-WEB::TAG
;                       `',HH-WEB::NAME))
;          (SETF (HH-WEB::TAG-SYMBOL HH-WEB::DEFINITION) ',HH-WEB::NAME)
;          (HH-WEB::ADD-TAG-TO-LIBRARY HH-WEB::DEFINITION HH-WEB:*TAG-LIBRARY*)
;          (EXPORT (LIST ',HH-WEB::NAME))
;          (SETF (HH-WEB::TAG-BASES HH-WEB::DEFINITION) ',HH-WEB::BASES)
;          (SETF (HH-WEB::TAG-ATTRIBUTES HH-WEB::DEFINITION) ',HH-WEB::ATTRIBUTES)
;          (MACROLET ((HH-WEB::WITH-TAG-ATTRIBUTES #
;                       #)
;                     (HH-WEB::DEFINE-TAG-METHOD #
;                       `#))
;            ,(WHEN HH-WEB::INIT `(SETF #))
;            ,(WHEN HH-WEB::HASBODY `(SETF #))
;            ,(WHEN HH-WEB::NOENDTAG `(SETF #))
;            ,(WHEN HH-WEB::SCRIPT `(SETF #))
;            ,(WHEN HH-WEB::READY `(SETF #))
;            ,(WHEN HH-WEB::SCRIPT-LIBRARIES `(SETF #))
;            ,(WHEN HH-WEB:STYLE `(SETF #))
;            ,(WHEN HH-WEB::STYLE-SHEETS `(SETF #))
;            ,(WHEN HH-WEB::CONTENT `(SETF #)))))
; 
; caught STYLE-WARNING:
;   The variable ALL-ATTRIBUTES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tags.lisp
; in: DEFMACRO DEFHTMLTAG
;     (LET ((HH-WEB::ALL-ATTRIBUTES
;            (LET (#)
;              (LOOP HH-WEB::FOR HH-WEB::ATTRIBUTE HH-WEB::IN #
;                    DO #)
;              HH-WEB::UNIQUE-ATTRIBUTES)))
;       `(LET ((HH-WEB::DEFINITION
;               (MAKE-INSTANCE 'HH-WEB::TAG-DEFINITION :NAME ',HH-WEB::NAME)))
;          (SETF (HH-WEB:TAG-NAME HH-WEB::DEFINITION)
;                  ,(IF HH-WEB::TAG
;                       HH-WEB::TAG
;                       `',HH-WEB::NAME))
;          (SETF (HH-WEB::TAG-SYMBOL HH-WEB::DEFINITION) ',HH-WEB::NAME)
;          (HH-WEB::ADD-TAG-TO-LIBRARY HH-WEB::DEFINITION HH-WEB:*TAG-LIBRARY*)
;          (EXPORT (LIST ',HH-WEB::NAME))
;          (SETF (HH-WEB::TAG-BASES HH-WEB::DEFINITION) ',HH-WEB::BASES)
;          (SETF (HH-WEB::TAG-ATTRIBUTES HH-WEB::DEFINITION) ',HH-WEB::ATTRIBUTES)
;          (MACROLET ((HH-WEB::WITH-TAG-ATTRIBUTES #
;                       #)
;                     (HH-WEB::DEFINE-TAG-METHOD #
;                       `#))
;            ,(WHEN HH-WEB::INIT `(SETF #))
;            ,(WHEN HH-WEB::HASBODY `(SETF #))
;            ,(WHEN HH-WEB::NOENDTAG `(SETF #))
;            ,(WHEN HH-WEB::SCRIPT `(SETF #))
;            ,(WHEN HH-WEB::READY `(SETF #))
;            ,(WHEN HH-WEB::SCRIPT-LIBRARIES `(SETF #))
;            ,(WHEN HH-WEB:STYLE `(SETF #))
;            ,(WHEN HH-WEB::STYLE-SHEETS `(SETF #))
;            ,(WHEN HH-WEB::CONTENT `(SETF #)))))
; 
; caught STYLE-WARNING:
;   The variable ALL-ATTRIBUTES is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "hh-web" "tags">
WARNING: redefining HH-WEB:TAG-NAME in DEFGENERIC
WARNING: redefining HH-WEB::TAG-HAS-BODY-P in DEFGENERIC
WARNING: redefining HH-WEB::TAG-HAS-END-TAG-P in DEFGENERIC
WARNING: redefining HH-WEB::TAG-ATTRIBUTES in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/taglibraries.lisp
; in: DEFMACRO PUTENDNEW
;     (DEFMACRO HH-WEB::PUTENDNEW
;               (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE
;                &KEY ((:TEST HH-WEB::TEST) 'EQUAL))
;       `(UNLESS
;            (MEMBER ,HH-WEB::SOME-OBJECT ,HH-WEB::SOME-PLACE :TEST ,HH-WEB::TEST)
;          (SETF ,HH-WEB::SOME-PLACE (NCONC ,HH-WEB::SOME-PLACE #))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFMACRO 'HH-WEB::PUTENDNEW
;                    (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION HH-WEB::PUTENDNEW)
;                        (#:EXPR #:ENV)
;                      (DECLARE
;                       (SB-C::LAMBDA-LIST
;                        (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE &KEY #)))
;                      (DECLARE (IGNORE #:ENV))
;                      (SB-INT:NAMED-DS-BIND (:MACRO HH-WEB::PUTENDNEW . DEFMACRO)
;                          (HH-WEB::SOME-OBJECT HH-WEB::SOME-PLACE &KEY
;                           (# 'EQUAL))
;                          (CDR #:EXPR)
;                        (BLOCK HH-WEB::PUTENDNEW `(UNLESS # #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   redefining HH-WEB::PUTENDNEW in DEFMACRO
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "hh-web" "taglibraries">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/services.lisp
; in: DEFUN PS-SERVICE-METHOD-CLIENT-SCRIPT
;     (DEFUN HH-WEB::PS-SERVICE-METHOD-CLIENT-SCRIPT
;            (HH-WEB::METHOD-NAME HH-WEB::SERVICE-ARGS HH-WEB::PARAMETERS
;             HH-WEB::HTTP-METHOD)
;       (LET ((HH-WEB::EFFECTIVE-HTTP-METHOD
;              (IF #
;                  :POST
;                  HH-WEB::HTTP-METHOD))
;             (HH-WEB::METHOD-PARAMETER
;              (IF #
;                  `#
;                  NIL)))
;         `(DEFUN ,HH-WEB::METHOD-NAME
;                 (HH-WEB:SERVICE-URL ,@(MAPCAR #'CAR HH-WEB::PARAMETERS)
;                  HH-WEB::SUCCESS ERROR)
;            (PARENSCRIPT:NEW (# #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA HH-WEB::PS-SERVICE-METHOD-CLIENT-SCRIPT
;         (HH-WEB::METHOD-NAME HH-WEB::SERVICE-ARGS HH-WEB::PARAMETERS
;          HH-WEB::HTTP-METHOD)
;       (BLOCK HH-WEB::PS-SERVICE-METHOD-CLIENT-SCRIPT
;         (LET ((HH-WEB::EFFECTIVE-HTTP-METHOD #) (HH-WEB::METHOD-PARAMETER #))
;           `(DEFUN ,HH-WEB::METHOD-NAME
;                   (HH-WEB:SERVICE-URL ,@# HH-WEB::SUCCESS ERROR)
;              (PARENSCRIPT:NEW #)))))
; 
; caught STYLE-WARNING:
;   The variable SERVICE-ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/services.lisp
; in: DEFMACRO DEFSERVICE-HANDLER => DEFUN #S(SB-IMPL::COMMA :EXPR LOCAL-SERVICE-NAME :KIND 0)
;     (HH-WEB::MAP-SERVICE-METHOD-HANDLERS
;      (HH-WEB::SERVICE-NAME HH-WEB::METHOD-HANDLERS)
;      `((AND ,(COND (# '#) (# '#) (# '#) (# '#) (T NIL)) ,HH-WEB::TEST)
;        (LOG5:LOG-FOR (LOG5:INFO) "Executing method ~a for ~a"
;                      ',HH-WEB::METHOD-NAME HH-WEB::SERVICE-NAME)
;        (HH-WEB:WITH-COOKIES (,@HH-WEB::COOKIES)
;                             (HH-WEB:WITH-HTTP-PARAMETERS (,@HH-WEB::PARAMETERS)
;                                                          ,@HH-WEB::METHOD-HANDLER-BODY))))
; --> MAPCAR LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB-KERNEL:%RPLACD SETQ THE CONS FUNCALL SB-C::%FUNCALL IF 
; --> DESTRUCTURING-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G8
;           (SB-C::CHECK-DS-LIST/&REST (CDR HH-WEB::METHOD-HANDLER) 1 1
;                                      '(HH-WEB::LOCAL-METHOD-NAME &REST
;                                        HH-WEB::METHOD-HANDLER-BODY)))
;          (HH-WEB::LOCAL-METHOD-NAME (POP #:G8))
;          (HH-WEB::METHOD-HANDLER-BODY #:G8))
;     (DECLARE (IGNORABLE HH-WEB::METHOD-HANDLER-BODY))
;     (DECLARE (IGNORABLE HH-WEB::METHOD-NAME))
;     (LET* ((HH-WEB::METHOD-NAME (INTERN # #))
;            (HH-WEB::HTTP-METHOD
;             (HH-WEB::SERVICE-METHOD-HTTP-METHOD HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::COOKIES
;             (HH-WEB::SERVICE-METHOD-COOKIES HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::PARAMETERS
;             (HH-WEB::SERVICE-METHOD-PARAMETERS HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::TEST
;             (HH-WEB::SERVICE-METHOD-TEST HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME)))
;       (DECLARE
;        (IGNORABLE HH-WEB::HTTP-METHOD HH-WEB::COOKIES HH-WEB::PARAMETERS
;         HH-WEB::TEST))
;       `((AND ,(COND # # # # #) ,HH-WEB::TEST)
;         (LOG5:LOG-FOR (LOG5:INFO) "Executing method ~a for ~a"
;                       ',HH-WEB::METHOD-NAME HH-WEB::SERVICE-NAME)
;         (HH-WEB:WITH-COOKIES (,@HH-WEB::COOKIES)
;                              (HH-WEB:WITH-HTTP-PARAMETERS #
;                                                           ,@HH-WEB::METHOD-HANDLER-BODY)))))
; 
; caught STYLE-WARNING:
;   IGNORABLE declaration for an unknown variable: METHOD-NAME

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/services.lisp
; in: DEFMACRO DEFSERVICE-HANDLER => DEFUN #S(SB-IMPL::COMMA :EXPR LOCAL-SERVICE-NAME :KIND 0)
;     (HH-WEB::MAP-SERVICE-METHOD-HANDLERS
;      (HH-WEB::SERVICE-NAME HH-WEB::METHOD-HANDLERS)
;      `((AND ,(COND (# '#) (# '#) (# '#) (# '#) (T NIL)) ,HH-WEB::TEST)
;        (LOG5:LOG-FOR (LOG5:INFO) "Executing method ~a for ~a"
;                      ',HH-WEB::METHOD-NAME HH-WEB::SERVICE-NAME)
;        (HH-WEB:WITH-COOKIES (,@HH-WEB::COOKIES)
;                             (HH-WEB:WITH-HTTP-PARAMETERS (,@HH-WEB::PARAMETERS)
;                                                          ,@HH-WEB::METHOD-HANDLER-BODY))))
; --> MAPCAR LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY 
; --> SB-KERNEL:%RPLACD SETQ THE CONS FUNCALL SB-C::%FUNCALL IF 
; --> DESTRUCTURING-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G8
;           (SB-C::CHECK-DS-LIST/&REST (CDR HH-WEB::METHOD-HANDLER) 1 1
;                                      '(HH-WEB::LOCAL-METHOD-NAME &REST
;                                        HH-WEB::METHOD-HANDLER-BODY)))
;          (HH-WEB::LOCAL-METHOD-NAME (POP #:G8))
;          (HH-WEB::METHOD-HANDLER-BODY #:G8))
;     (DECLARE (IGNORABLE HH-WEB::METHOD-HANDLER-BODY))
;     (DECLARE (IGNORABLE HH-WEB::METHOD-NAME))
;     (LET* ((HH-WEB::METHOD-NAME (INTERN # #))
;            (HH-WEB::HTTP-METHOD
;             (HH-WEB::SERVICE-METHOD-HTTP-METHOD HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::COOKIES
;             (HH-WEB::SERVICE-METHOD-COOKIES HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::PARAMETERS
;             (HH-WEB::SERVICE-METHOD-PARAMETERS HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME))
;            (HH-WEB::TEST
;             (HH-WEB::SERVICE-METHOD-TEST HH-WEB::SERVICE-NAME
;              HH-WEB::METHOD-NAME)))
;       (DECLARE
;        (IGNORABLE HH-WEB::HTTP-METHOD HH-WEB::COOKIES HH-WEB::PARAMETERS
;         HH-WEB::TEST))
;       `((AND ,(COND # # # # #) ,HH-WEB::TEST)
;         (LOG5:LOG-FOR (LOG5:INFO) "Executing method ~a for ~a"
;                       ',HH-WEB::METHOD-NAME HH-WEB::SERVICE-NAME)
;         (HH-WEB:WITH-COOKIES (,@HH-WEB::COOKIES)
;                              (HH-WEB:WITH-HTTP-PARAMETERS #
;                                                           ,@HH-WEB::METHOD-HANDLER-BODY)))))
; 
; caught STYLE-WARNING:
;   IGNORABLE declaration for an unknown variable: METHOD-NAME
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "hh-web" "services">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/cache.lisp
; in: DEFMETHOD CACHED-ITEM-INVALIDP (T T T)
;     (DEFMETHOD HH-WEB::CACHED-ITEM-INVALIDP
;                (HH-WEB::PROVIDER-OR-CACHE HH-WEB::ITEM HH-WEB::REQUEST)
;       (DECLARE (IGNORABLE HH-WEB::PROVIDER HH-WEB::ITEM HH-WEB::REQUEST))
;       NIL)
; --> 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 SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE HH-WEB::PROVIDER))
;     (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 HH-WEB::CACHED-ITEM-INVALIDP NIL))))
; 
; caught STYLE-WARNING:
;   IGNORABLE declaration for an unknown variable: PROVIDER
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "hh-web" "cache">
WARNING: redefining HH-WEB::CACHE-KEY in DEFGENERIC
WARNING: redefining HH-WEB::MODIFIED-TIME-OF in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/skeleton.lisp
; in: DEFMETHOD GENERATE-SKELETON-COMPONENT (SKELETON (EQL :URLS))
;     (LET* ((PACKAGE-NAME (STRING-DOWNCASE (SYMBOL-NAME #))))
;       (HH-WEB::WITH-SKELETON-FILE (HH-WEB::OS HH-WEB::SKELETON #P"urls.lisp")
;                                   (FORMAT HH-WEB::OS
;                                           ";; Dispatch to home page template~%")
;                                   (FORMAT HH-WEB::OS
;                                           "(defurl \"^/$\" :handler (home-page))~%~%")
;                                   (FORMAT HH-WEB::OS
;                                           ";; Dispatch to favicon renderer~%")
;                                   (FORMAT HH-WEB::OS
;                                           "(defurl \"^/favicon.ico$\" :handler (favicon-image))~%")
;                                   (FORMAT HH-WEB::OS
;                                           ";; Dispatch to package documentation viewer~%")
;                                   (FORMAT HH-WEB::OS
;                                           "(defurl \"^/docs/(?<package>.*)\" :handler (package-doc-page package) :categories (docs) )~%")))
; 
; caught STYLE-WARNING:
;   The variable PACKAGE-NAME is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "hh-web" "skeleton">
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd" contains definition for system "hh-web-tests". Please only define "hh-web" and secondary systems with a name starting with "hh-web/" (e.g. "hh-web/test") in that file.
WARNING: UIOP/VERSION:PARSE-VERSION: "0.02" contains leading zeros
WARNING: Invalid :version specifier "0.02" for component "hh-web-tests" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/hh-web.asd", using NIL instead
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "hh-web-tests"), but dependency (ASDF/LISP-ACTION:LOAD-OP "hh-web") wasn't done yet!
Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: Failed to find the TRUENAME of /home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp: No such file or directory

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1003FB7633}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1003FB7633}>)
2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1003FB7633}>)
3: (ERROR SB-INT:SIMPLE-FILE-ERROR :PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" :FORMAT-CONTROL "~@<~?~@[: ~2I~_~A~]~:>" :FORMAT-ARGUMENTS ("Failed to find the ~*~A~2:* of ~A" (#P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" :TRUENAME) "No such file or directory"))
4: ((LABELS SB-IMPL::RESOLVE-PROBLEMATIC-SYMLINK :IN SB-IMPL::%QUERY-FILE-SYSTEM) "/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" 2 NIL)
5: (TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp")
6: (SB-C::VERIFY-SOURCE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp")
7: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests-tmp267Y2N80.fasl" :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL)
8: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003FB5BDB}> NIL)
9: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003FB54FB}>)
10: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/hh-web/d40315c8346f3d101c6c3acecb2e3ae24100484a/hh-web-20180203-git/tests.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
11: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "hh-web-tests" "tests">)
12: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "hh-web-tests" "tests">)
13: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
14: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "hh-web-tests" "tests">) [fast-method]
15: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005E27DD3}>) [fast-method]
16: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
17: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005E27DD3}>) [fast-method]
18: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "hh-web-tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
19: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "hh-web-tests">)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "hh-web-tests">) [fast-method]
22: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "hh-web-tests")
23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
24: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hh-web-tests") [fast-method]
25: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005E20E9B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
26: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
27: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005E1E40B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
28: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hh-web-tests") [fast-method]
29: (DEPCHECK::COMPUTE-DEPENDENCIES "hh-web" "hh-web-tests")
30: (DEPCHECK::MAGIC "hh-web" "hh-web-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1s6n8a0t/depcheck-win.txt")
31: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "hh-web" "hh-web-tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1s6n8a0t/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-1s6n8a0t/depcheck-fail.txt"))
32: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
33: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
34: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
35: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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