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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(load-file-set-package): New function.
Date: Fri Sep 24 00:23:07 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.242 slime/swank.lisp:1.243
--- slime/swank.lisp:1.242	Thu Sep 23 23:30:30 2004
+++ slime/swank.lisp	Fri Sep 24 00:23:07 2004
@@ -1248,7 +1248,8 @@
     (swank-pprint (multiple-value-list (eval (read-from-string string))))))
 
 (defslimefun set-package (package)
-  "Set *package* to PACKAGE and return its name and the string to use in the prompt."
+  "Set *package* to PACKAGE.
+Return its name and the string to use in the prompt."
   (let ((p (setq *package* (guess-package-from-string package))))
     (list (package-name p) (package-string-for-prompt p))))
 
@@ -1607,6 +1608,11 @@
 
 (defslimefun load-file (filename)
   (to-string (load filename)))
+
+(defslimefun load-file-set-package (filename &optional package)
+  (load-file filename)
+  (if package
+      (set-package package)))
 
 
 ;;;; Macroexpansion