blob: 0bc747ecdd9fc0e2c7cd08c87e3e7f20c692c4bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
*** sacla/lisp/test/must-package.lisp 2004-08-03 08:34:55.000000000 +0200
--- CLISP/clisp-20040712/sacla-tests/must-package.lisp 2004-08-06 03:13:08.000000000 +0200
***************
*** 1459,1464 ****
--- 1459,1465 ----
'("TB-FOO" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2" "TB-FOO-NICKNAME-3"))
(and (packagep (defpackage "TB-FOO" (:nicknames tb-foo-nickname-1)))
(equal (package-nicknames 'tb-foo) '("TB-FOO-NICKNAME-1"))))
+ #-CLISP ; unfounded assumptions about the order of the package-nicknames list
(progn
(mapc #'(lambda (name) (when (find-package name) (delete-package name)))
'("TB-FOO" "TB-FOO-NICKNAME-1" "TB-FOO-NICKNAME-2" "TB-FOO-NICKNAME-3"))
|