(cl:in-package :cl-user)
;;; ROOM should run without signalling an error. (bug 247)
-#+nil (room)
-#+nil (room t)
-#+nil (room nil)
+(room)
+(room t)
+(room nil)
;;; DESCRIBE should run without signalling an error.
(defstruct to-be-described a b)
(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)
+
+;;; SETQ should return its value.
+(assert (typep (setq *baz* 1) 'integer))
+(assert (typep (in-package :cl-user) 'package))
+
;;; success
(quit :unix-status 104)