0.8alpha.0.45:

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

diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp
index 5f59c48..b155ff7 100644 (file)
--- a/tests/smoke.impure.lisp
+++ b/tests/smoke.impure.lisp
@@ -40,5 +40,12 @@
 (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)