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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(:swank): export profile symbols (profiled-functions, profile-report,
profile-reset, unprofile-all, profile-package).

Date: Wed Mar 10 10:45:10 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.141 slime/swank.lisp:1.142
--- slime/swank.lisp:1.141	Wed Mar 10 03:23:19 2004
+++ slime/swank.lisp	Wed Mar 10 10:45:10 2004
@@ -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)
@@ -911,6 +916,9 @@
 (defslimefun sldb-continue ()
   (continue))
 
+(defslimefun throw-to-toplevel ()
+  (throw 'slime-toplevel nil))
+
 (defslimefun invoke-nth-restart-for-emacs (sldb-level n)
   "Invoke the Nth available restart.
 SLDB-LEVEL is the debug level when the request was made. If this
@@ -1473,9 +1481,6 @@
 
 (defslimefun load-file (filename)
   (to-string (load filename)))
-
-(defslimefun throw-to-toplevel ()
-  (throw 'slime-toplevel nil))
 
 
 ;;;; Profiling