Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.290
diff -u -r1.290 ChangeLog
--- ChangeLog	10 Mar 2004 08:30:12 -0000	1.290
+++ ChangeLog	10 Mar 2004 11:13:11 -0000
@@ -1,3 +1,11 @@
+2004-03-10  Pawel Ostrowski  <pasza@zodiac.mimuw.edu.pl>
+
+	* swank-cmucl.lisp (unprofile-all): (eval '(profile:unprofile))
+	instead of just calling it since it is a macro in cmucl.
+
+	* swank.lisp (:swank): export profile symbols (profiled-functions,
+	profile-report, profile-reset, unprofile-all, profile-package)
+
 2004-03-10  Helmut Eller  <e9626484@stud3.tuwien.ac.at>
 
 	* swank-allegro.lisp, swank-lispworks.lisp, swank-sbcl.lisp,
Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.141
diff -u -r1.141 swank.lisp
--- swank.lisp	10 Mar 2004 08:23:19 -0000	1.141
+++ swank.lisp	10 Mar 2004 11:13:15 -0000
@@ -15,6 +15,11 @@
            #:ed-in-emacs
            
            #:frame-source-location-for-emacs
+           #:profiled-functions
+           #:profile-report
+           #:profile-reset
+           #:unprofile-all
+           #:profile-package
            ))
 
 (in-package :swank)
Index: swank-cmucl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v
retrieving revision 1.84
diff -u -r1.84 swank-cmucl.lisp
--- swank-cmucl.lisp	10 Mar 2004 09:10:33 -0000	1.84
+++ swank-cmucl.lisp	10 Mar 2004 11:13:20 -0000
@@ -1212,7 +1212,7 @@
   (eval `(profile:unprofile ,fname)))
 
 (defimplementation unprofile-all ()
-  (profile:unprofile)
+  (eval '(profile:unprofile))
   "All functions unprofiled.")
 
 (defimplementation profile-report ()