;;;; TEST-OWN-NICKNAME-AS-LOCAL-NICKNAME-INTERN: Failure: Failed assertion: (EQ (INTERN "FOO" P2) (LET ((*PACKAGE* P1)) (INTERN "FOO" :OWN-NICKNAME))) ;;;; TEST-OWN-NICKNAME-AS-LOCAL-NICKNAME-CERROR: Success ;;;; TEST-OWN-NAME-AS-LOCAL-NICKNAME-INTERN: Failure: Failed assertion: (EQ (INTERN "FOO" P2) (LET ((*PACKAGE* P1)) (INTERN "FOO" :OWN-NAME-AS-NICKNAME1))) ;;;; TEST-OWN-NAME-AS-LOCAL-NICKNAME-CERROR: Success ;;;; TEST-OWN-NICKNAME-AS-LOCAL-NICKNAME: Failure: Failed assertion: (EQ (INTERN "FOO" P2) (LET ((*PACKAGE* P1)) (INTERN "FOO" :OWN-NICKNAME))) ;;;; TEST-OWN-NAME-AS-LOCAL-NICKNAME: Failure: Failed assertion: (EQ (INTERN "FOO" P2) (LET ((*PACKAGE* P1)) (INTERN "FOO" :OWN-NAME-AS-NICKNAME1))) ;;;; TEST-DELETE-PACKAGE-LOCALLY-NICKNAMED-BY-OTHERS: Failure: Failed assertion: (NOT (PACKAGE-LOCAL-NICKNAMES P1)) ;;;; TEST-DELETE-PACKAGE-LOCALLY-NICKNAMES-OTHERS: Failure: Failed assertion: (NOT (PACKAGE-LOCALLY-NICKNAMED-BY-LIST P2)) ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-NICKNAME-REMOVAL-READD-ANOTHER-SYMBOL-PRINTING: Failure: There is no package named "L" . ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-NICKNAME-REMOVAL-READD-ANOTHER-PACKAGE-EQUALITY: Failure: Failed assertion: (EQ CL (FIND-PACKAGE :PACKAGE-LOCAL-NICKNAMES-TEST-2)) ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-NICKNAME-REMOVAL-READD-ANOTHER-SYMBOL-EQUALITY: Failure: There is no package named "L" . ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-NICKNAME-REMOVAL: Failure: There is no package named "CC" . ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-NICKNAME-COLLISION: Success ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-SYMBOL-PRINTING: Failure: There is no package named "L" . ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-PACKAGE-EQUALITY: Failure: Failed assertion: (EQ CL (FIND-PACKAGE :COMMON-LISP)) ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-SYMBOL-EQUALITY: Failure: There is no package named "L" . ;;;; TEST-PACKAGE-LOCAL-NICKNAMES-INTROSPECTION: Success ;;;; ;;;; 17 tests run, 13 failures.