[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
Fix from Antonio Menezes Leitao.

Date: Sat Mar 12 03:46:40 2005
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.467 slime/slime.el:1.468
--- slime/slime.el:1.467	Thu Mar 10 19:43:58 2005
+++ slime/slime.el	Sat Mar 12 03:46:38 2005
@@ -5412,12 +5412,12 @@
             (slime-read-from-minibuffer "(Un)trace: " (prin1-to-string n)))
            ((:defgeneric n)
             (let* ((name (prin1-to-string n))
-                   (answer (slime-read-from-minibuffer "(Un)trace: " n)))
+                   (answer (slime-read-from-minibuffer "(Un)trace: " name)))
               (cond ((and (string= name answer)
                           (y-or-n-p (concat "(Un)trace also all " 
                                             "methods implementing " 
                                             name "? ")))
-                     (prin1-to-string `(:defgeneric ,name)))
+                     (prin1-to-string `(:defgeneric ,n)))
                     (t
                      answer))))
            ((:defmethod &rest _)
@@ -5480,7 +5480,7 @@
                 (slime-in-expression-p `(,name)))
            ;; looks like a regular call
            (let ((toplevel (ignore-errors (slime-parse-toplevel-form))))
-             (cond ((slime-in-expression-p `(setf *))  ;a setf-call
+             (cond ((slime-in-expression-p `(setf (*)))  ;a setf-call
                     (if toplevel
                         `(:call ,toplevel (setf ,name))
                       `(setf ,name)))