projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.45.31: make COPY-PPRINT-DISPATCH have access to a pristine table
[sbcl.git]
/
tests
/
packages.impure.lisp
diff --git
a/tests/packages.impure.lisp
b/tests/packages.impure.lisp
index
db5c3b2
..
3b5273e
100644
(file)
--- a/
tests/packages.impure.lisp
+++ b/
tests/packages.impure.lisp
@@
-272,6
+272,11
@@
if a restart was invoked."
(is (eq (sym "FOO" "SYM")
(sym "BAZ" "SYM"))))))
(is (eq (sym "FOO" "SYM")
(sym "BAZ" "SYM"))))))
+(with-test (:name unintern.2)
+ (with-packages (("FOO" (:intern "SYM")))
+ (unintern :sym "FOO")
+ (assert (find-symbol "SYM" "FOO"))))
+
;;; WITH-PACKAGE-ITERATOR error signalling had problems
(with-test (:name with-package-itarator.error)
(assert (eq :good
;;; WITH-PACKAGE-ITERATOR error signalling had problems
(with-test (:name with-package-itarator.error)
(assert (eq :good