0.8alpha.0.21:

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

diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp
index 37fd03f..5f59c48 100644 (file)
--- a/tests/smoke.impure.lisp
+++ b/tests/smoke.impure.lisp
@@ -36,5 +36,9 @@
 (defvar *baz* nil)
 (copy-symbol '*baz* t)
 
+;;; SETQ should return its value.
+(assert (typep (setq *baz* 1) 'integer))
+(assert (typep (in-package :cl-user) 'package))
+
 ;;; success
 (quit :unix-status 104)