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

[Alan Ruttenberg]

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

Modified Files:
	ChangeLog swank.lisp slime.el 
Log Message:

Date: Tue Sep 13 06:14:54 2005
Author: aruttenberg

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.775 slime/ChangeLog:1.776
--- slime/ChangeLog:1.775	Tue Sep 13 01:06:43 2005
+++ slime/ChangeLog	Tue Sep 13 06:14:53 2005
@@ -1,3 +1,7 @@
+2005-09-13  Alan Ruttenberg <alanr-l at mumble.net>
+	* slime.el (defcustom slime-ed-use-dedicated-frame ... vs defvar
+	* swank.lisp (run-repl-eval-hooks .. finally (return  vs no return
+	
 2005-09-13  Helmut Eller  <heller at common-lisp.net>
 
 	* present.lisp (menu-choices-for-presentation-id): Use


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.332 slime/swank.lisp:1.333
--- slime/swank.lisp:1.332	Tue Sep 13 01:29:41 2005
+++ slime/swank.lisp	Tue Sep 13 06:14:53 2005
@@ -1830,6 +1830,7 @@
 	      (if *slime-repl-eval-hooks* 
                   (setq values (run-repl-eval-hooks form))
                   (setq values (multiple-value-list (eval form))))
+              (ccl::print-db values)
               (force-output)))))
     (when (and package-update-p (not (eq *package* *buffer-package*)))
       (send-to-emacs 
@@ -1838,12 +1839,13 @@
 
 (defun run-repl-eval-hooks (form)
   (loop for hook in *slime-repl-eval-hooks* 
-        for res =  (catch *slime-repl-eval-hook-pass* 
-                     (multiple-value-list (funcall hook form)))
-        until (not (eq res *slime-repl-eval-hook-pass*))
-        finally (if (eq res *slime-repl-eval-hook-pass*)
-                    (multiple-value-list (eval form))
-                    res)))
+     for res =  (catch *slime-repl-eval-hook-pass* 
+                  (multiple-value-list (funcall hook form)))
+     until (not (eq res *slime-repl-eval-hook-pass*))
+     finally (return 
+               (if (eq res *slime-repl-eval-hook-pass*)
+                   (multiple-value-list (eval form))
+                   res))))
 
 (defun package-string-for-prompt (package)
   "Return the shortest nickname (or canonical name) of PACKAGE."


Index: slime/slime.el
diff -u slime/slime.el:1.542 slime/slime.el:1.543
--- slime/slime.el:1.542	Tue Sep 13 02:11:56 2005
+++ slime/slime.el	Tue Sep 13 06:14:53 2005
@@ -5881,8 +5881,10 @@
 (defvar slime-ed-frame nil
   "The frame used by `slime-ed'.")
 
-(defvar slime-ed-use-dedicated-frame t
-  "*When non-nil, `slime-ed' will create and reuse a dedicated frame.")
+(defcustom slime-ed-use-dedicated-frame t
+  "*When non-nil, `slime-ed' will create and reuse a dedicated frame."
+  :type 'boolean
+  :group 'slime)
 
 (defun slime-ed (what)
   "Edit WHAT.