0.pre8.90:

[sbcl.git] / tests / smoke.impure.lisp

diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp
index ff7d4d9..37fd03f 100644 (file)
--- a/tests/smoke.impure.lisp
+++ b/tests/smoke.impure.lisp
@@ -29,5 +29,12 @@
 (describe '(a list))
 (describe #(a vector))
 
+;;; COPY-SYMBOL should work without signalling an error, even if the
+;;; symbol is unbound.
+(copy-symbol 'foo)
+(copy-symbol 'bar t)
+(defvar *baz* nil)
+(copy-symbol '*baz* t)
+
 ;;; success
 (quit :unix-status 104)