[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv26194

Modified Files:
	swank-cmucl.lisp 
Log Message:
(unprofile-all): (eval '(profile:unprofile)) instead of just calling
it since it is a macro in cmucl.

Date: Wed Mar 10 10:43:22 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.84 slime/swank-cmucl.lisp:1.85
--- slime/swank-cmucl.lisp:1.84	Wed Mar 10 04:10:33 2004
+++ slime/swank-cmucl.lisp	Wed Mar 10 10:43:22 2004
@@ -1212,14 +1212,14 @@
   (eval `(profile:unprofile ,fname)))
 
 (defimplementation unprofile-all ()
-  (profile:unprofile)
+  (eval '(profile:unprofile))
   "All functions unprofiled.")
 
 (defimplementation profile-report ()
-  (profile:report-time))
+  (eval '(profile:report-time)))
 
 (defimplementation profile-reset ()
-  (profile:reset-time)
+  (eval '(profile:reset-time))
   "Reset profiling counters.")
 
 (defimplementation profiled-functions ()