X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsmoke.impure.lisp;h=b155ff77b68a9047e9d708b3d3a592c7452c0885;hb=60d2531e0a12daa5a43e390affe9260688b17d21;hp=ff7d4d9889dcc943b17dcb9e0e0c72416523ce46;hpb=08cc6ef646857381452e814cda8e68fccc464f96;p=sbcl.git

diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp
index ff7d4d9..b155ff7 100644
--- a/tests/smoke.impure.lisp
+++ b/tests/smoke.impure.lisp
@@ -29,5 +29,23 @@
 (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))
+
+;;; PROFILE should run without obvious breakage
+(defun profiled-fun ()
+  (random 1d0))
+(profile profiled-fun)
+(loop repeat 100000 do (profiled-fun))
+(report)
+
 ;;; success
 (quit :unix-status 104)