log5

SBCL 1.4.3 / ASDF 3.3.1

log5-test

WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE) from GET-BACKTRACE-AS-STRING

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180126-git/unit-tests/unit-tests.lisp
; in: DEFTESTSUITE TEST-CANONIZE-CATEGORY-NAME
;     (LIFT:DEFTESTSUITE LOG5-TEST::TEST-CANONIZE-CATEGORY-NAME
;                        (LOG5-TEST::LOG5-TEST) NIL
;                        (:DYNAMIC-VARIABLES (*PACKAGE* (FIND-PACKAGE :LOG5-TEST)))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME 'LIFT::A :SIMPLE? T)
;                           'LIFT::A))
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME # :SIMPLE? T)
;                           'LOG5-TEST::A))
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME :A :SIMPLE? T)
;                           'LOG5-TEST::A))))
; --> PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER 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 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET LET LIFT:ADDTEST EVAL-WHEN 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM LET LIFT::MUFFLE-REDEFINITION-WARNINGS 
; --> LOCALLY PROGN SETF LET* LAMBDA FUNCTION LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # 'LIFT::A)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # 'LOG5-TEST::A)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180126-git/unit-tests/unit-tests.lisp
; in: DEFTESTSUITE TEST-CANONIZE-CATEGORY-NAME
;     (LIFT:DEFTESTSUITE LOG5-TEST::TEST-CANONIZE-CATEGORY-NAME
;                        (LOG5-TEST::LOG5-TEST) NIL
;                        (:DYNAMIC-VARIABLES (*PACKAGE* (FIND-PACKAGE :LOG5-TEST)))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME 'LIFT::A :SIMPLE? T)
;                           'LIFT::A))
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME # :SIMPLE? T)
;                           'LOG5-TEST::A))
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-NAME :A :SIMPLE? T)
;                           'LOG5-TEST::A))))
; --> EVAL-WHEN UNWIND-PROTECT UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD 
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 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 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> EVAL-WHEN UNWIND-PROTECT UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET LET 
; --> LIFT:ADDTEST EVAL-WHEN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET 
; --> LIFT::MUFFLE-REDEFINITION-WARNINGS LOCALLY PROGN SETF LET* LAMBDA 
; --> FUNCTION LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # 'LIFT::A)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # 'LOG5-TEST::A)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180126-git/unit-tests/unit-tests.lisp
; in: DEFTESTSUITE TEST-CANONIZE-CATEGORY-SPECIFICATION
;     (LIFT:DEFTESTSUITE LOG5-TEST::TEST-CANONIZE-CATEGORY-SPECIFICATION
;                        (LOG5-TEST::LOG5-TEST) NIL (:EQUALITY-TEST 'EQUAL)
;                        (:DYNAMIC-VARIABLES (*PACKAGE* (FIND-PACKAGE :LOG5-TEST)))
;                        (:SETUP
;                         ((LOG5::UPDATE-CATEGORY-SPEC 'LIFT::A NIL)
;                          (LOG5::UPDATE-CATEGORY-SPEC ':B NIL)
;                          (LOG5::UPDATE-CATEGORY-SPEC 'LOG5-TEST::C NIL)))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-SPECIFICATION '#)
;                           '(AND LIFT::A #))))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-SPECIFICATION '#)
;                           '(AND LIFT::A #)))))
; --> PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER 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* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (LOG5::UPDATE-CATEGORY-SPEC 'LIFT::A NIL)
;          (LOG5::UPDATE-CATEGORY-SPEC ':B NIL)
;          (LOG5::UPDATE-CATEGORY-SPEC 'LOG5-TEST::C NIL)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER 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 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET LET LIFT:ADDTEST EVAL-WHEN 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM LET LIFT::MUFFLE-REDEFINITION-WARNINGS 
; --> LOCALLY PROGN SETF LET* LAMBDA FUNCTION LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/log5/07d72b5327c5e8795eac99d235cc1a483a4cbafd/log5-20180126-git/unit-tests/unit-tests.lisp
; in: DEFTESTSUITE TEST-CANONIZE-CATEGORY-SPECIFICATION
;     (LIFT:DEFTESTSUITE LOG5-TEST::TEST-CANONIZE-CATEGORY-SPECIFICATION
;                        (LOG5-TEST::LOG5-TEST) NIL (:EQUALITY-TEST 'EQUAL)
;                        (:DYNAMIC-VARIABLES (*PACKAGE* (FIND-PACKAGE :LOG5-TEST)))
;                        (:SETUP
;                         ((LOG5::UPDATE-CATEGORY-SPEC 'LIFT::A NIL)
;                          (LOG5::UPDATE-CATEGORY-SPEC ':B NIL)
;                          (LOG5::UPDATE-CATEGORY-SPEC 'LOG5-TEST::C NIL)))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-SPECIFICATION '#)
;                           '(AND LIFT::A #))))
;                        (:TESTS
;                         ((LIFT:ENSURE-SAME
;                           (LOG5::CANONIZE-CATEGORY-SPECIFICATION '#)
;                           '(AND LIFT::A #)))))
; --> EVAL-WHEN UNWIND-PROTECT UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD 
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 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* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (LOG5::UPDATE-CATEGORY-SPEC 'LIFT::A NIL)
;          (LOG5::UPDATE-CATEGORY-SPEC ':B NIL)
;          (LOG5::UPDATE-CATEGORY-SPEC 'LOG5-TEST::C NIL)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> EVAL-WHEN UNWIND-PROTECT UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET DEFMETHOD 
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 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 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; --> EVAL-WHEN UNWIND-PROTECT UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET LET 
; --> LIFT:ADDTEST EVAL-WHEN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET 
; --> LIFT::MUFFLE-REDEFINITION-WARNINGS LOCALLY PROGN SETF LET* LAMBDA 
; --> FUNCTION LIFT::WITH-TEST-SLOTS 
; ==>
;   (SYMBOL-MACROLET ((LIFT:LIFT-RESULT
;                      `(GETF (LIFT::TEST-DATA LIFT:*CURRENT-TEST*) :RESULT)))
;     (DECLARE (IGNORABLE LIFT:LIFT-RESULT)
;              (SPECIAL *PACKAGE*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught WARNING:
;   Compile-time package lock violation:
;     Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in package LOG5-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "log5-test" "unit-tests" "unit-tests">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100997ADF3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100997ADF3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100997ADF3}>)
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 "log5-test" "unit-tests" "unit-tests">)))
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 "log5-test" "unit-tests" "unit-tests">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "log5-test" "unit-tests" "unit-tests">)
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 "log5-test" "unit-tests" "unit-tests">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A14343}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005A14343}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "log5-test"> :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 "log5-test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "log5-test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "log5-test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "log5-test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A0CC7B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10059C935B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "log5-test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "log5-test" "log5-test")
23: (DEPCHECK::MAGIC "log5-test" "log5-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-OMdyAo2J/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "log5-test" "log5-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-OMdyAo2J/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-OMdyAo2J/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((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 16 ERROR conditions
;   caught 16 WARNING conditions