search

hraban / metatilities-base

metabang's core utilities... - Something to stand on
http://common-lisp.net/project/metatilities-base/
MIT License
7 stars 1 forks source link

Tests build failure on SBCL (common-lisp package lock violation in test-parse-brief-class.lisp) #2

Open avodonosov opened 12 years ago

avodonosov commented 12 years ago 
To load "metatilities-base-test":
  Load 1 ASDF system:
    metatilities-base-test
; Loading "metatilities-base-test"

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: DEFTESTSUITE TEST-PARSE-BRIEF-SLOT
;     (LIFT:DEFTESTSUITE METATILITIES-BASE-TEST::TEST-PARSE-BRIEF-SLOT
;                        (METATILITIES-BASE-TEST::METATILITIES-BASE-TEST) NIL
;                        (:DYNAMIC-VARIABLES
;                         (METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?* NIL)
;                         (METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?* NIL)
;                         (METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;                          NIL)
;                         (*PACKAGE* (FIND-PACKAGE '#:METATILITIES-BASE-TEST)))
;                        (:EQUALITY-TEST
;                         #'METATILITIES-BASE-TEST::SLOT-SPECS-SAME-P))
; --> 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 PROGN 
; --> 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
.; in: DEFTESTSUITE TEST-PARSE-BRIEF-SLOT
;     (LIFT:DEFTESTSUITE METATILITIES-BASE-TEST::TEST-PARSE-BRIEF-SLOT
;                        (METATILITIES-BASE-TEST::METATILITIES-BASE-TEST) NIL
;                        (:DYNAMIC-VARIABLES
;                         (METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?* NIL)
;                         (METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?* NIL)
;                         (METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;                          NIL)
;                         (*PACKAGE* (FIND-PACKAGE '#:METATILITIES-BASE-TEST)))
;                        (:EQUALITY-TEST
;                         #'METATILITIES-BASE-TEST::SLOT-SPECS-SAME-P))
; --> 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 PROGN 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN
;          (IF #
;              #
;              #)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST SIMPLE-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::SIMPLE-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT 'METATILITIES-BASE-TEST::FOO)
;        '(METATILITIES-BASE-TEST::FOO)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST SIMPLE-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::SIMPLE-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT 'METATILITIES-BASE-TEST::FOO)
;        '(METATILITIES-BASE-TEST::FOO)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST SIMPLE-2
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::SIMPLE-2
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT '(METATILITIES-BASE-TEST::FOO))
;        '(METATILITIES-BASE-TEST::FOO)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST SIMPLE-2
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::SIMPLE-2
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT '(METATILITIES-BASE-TEST::FOO))
;        '(METATILITIES-BASE-TEST::FOO)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
.

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT '(METATILITIES-BASE-TEST::FOO T))
;        '(METATILITIES-BASE-TEST::FOO :INITFORM T)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST INITFORM-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT '(METATILITIES-BASE-TEST::FOO T))
;        '(METATILITIES-BASE-TEST::FOO :INITFORM T)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-INITARG-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-INITARG-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::I))
;        '(METATILITIES-BASE-TEST::FOO :INITFORM T :INITARG :FOO)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST INITFORM-INITARG-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-INITARG-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::I))
;        '(METATILITIES-BASE-TEST::FOO :INITFORM T :INITARG :FOO)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-READER-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-READER-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::R))
;        '(METATILITIES-BASE-TEST::FOO :READER METATILITIES-BASE-TEST::FOO
;          :INITFORM T)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST INITFORM-READER-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-READER-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::R))
;        '(METATILITIES-BASE-TEST::FOO :READER METATILITIES-BASE-TEST::FOO
;          :INITFORM T)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-ACCESSOR-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::A))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
.
; in: ADDTEST INITFORM-ACCESSOR-1
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-1
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::A))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-ACCESSOR-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::A :WOW 2))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T :WOW 2)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST INITFORM-ACCESSOR-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::A :WOW 2))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T :WOW 2)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST UNBOUND-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::UNBOUND-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::BAR :UNBOUND :COMPONENT NIL))
;        '(METATILITIES-BASE-TEST::BAR :COMPONENT NIL)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST UNBOUND-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::UNBOUND-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::BAR :UNBOUND :COMPONENT NIL))
;        '(METATILITIES-BASE-TEST::BAR :COMPONENT NIL)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST INITFORM-ACCESSOR-DOCUMENTATION
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-DOCUMENTATION
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::IA "test slot"))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T :INITARG :FOO :DOCUMENTATION "test slot")))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST INITFORM-ACCESSOR-DOCUMENTATION
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::INITFORM-ACCESSOR-DOCUMENTATION
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::FOO T METATILITIES-BASE-TEST::IA "test slot"))
;        '(METATILITIES-BASE-TEST::FOO :ACCESSOR METATILITIES-BASE-TEST::FOO
;          :INITFORM T :INITARG :FOO :DOCUMENTATION "test slot")))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
.

; file: C:/Users/anton/quicklisp/dists/quicklisp/software/metatilities-base-20120407-git/unit-tests/test-parse-brief-class.lisp
; in: ADDTEST UNBOUND-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::UNBOUND-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::BAR :UNBOUND :COMPONENT NIL))
;        '(METATILITIES-BASE-TEST::BAR :COMPONENT NIL)))
; --> PROGN 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* 
; --> MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2

; in: ADDTEST UNBOUND-WITH-EXTRA
;     (LIFT:ADDTEST METATILITIES-BASE-TEST::UNBOUND-WITH-EXTRA
;       (LIFT:ENSURE-SAME
;        (METABANG.UTILITIES:PARSE-BRIEF-SLOT
;         '(METATILITIES-BASE-TEST::BAR :UNBOUND :COMPONENT NIL))
;        '(METATILITIES-BASE-TEST::BAR :COMPONENT NIL)))
; --> EVAL-WHEN UNWIND-PROTECT 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* MULTIPLE-VALUE-BIND 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*
;               METATILITIES-BASE-TEST::*PRUNE-UNKNOWN-SLOT-OPTIONS*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-INITARGS?*
;               METATILITIES-BASE-TEST::*AUTOMATIC-SLOT-ACCESSORS?*))
;     (SYMBOL-MACROLET ()
;       (DECLARE (IGNORABLE))
;       (MACROLET ()
;         (PROGN (LIFT:ENSURE-SAME # '#)))))
; 
; caught ERROR:
;   Lock on package COMMON-LISP violated when declaring *PACKAGE* special while in
;   package METATILITIES-BASE-TEST.
;   See also:
;     The SBCL Manual, Node "Package Locks"
;     The ANSI Standard, Section 11.1.2.1.2
avodonosov commented 12 years ago

Probably this failure is the reason why metatilities-base-test can not be loaded by Quicklips. See https://github.com/quicklisp/quicklisp-client/issues/58