[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv5187

Modified Files:
	swank.lisp 
Log Message:

* swank.lisp (valid-function-name-p): Fixed wrt. setf functions.


--- /project/slime/cvsroot/slime/swank.lisp	2007/11/24 08:14:50	1.518
+++ /project/slime/cvsroot/slime/swank.lisp	2007/11/29 12:35:54	1.519
@@ -2858,15 +2858,13 @@
         *inspectee-actions* (make-array 10 :adjustable t :fill-pointer 0)
         *inspector-history* (make-array 10 :adjustable t :fill-pointer 0)))
 
-;; FIXME: Unused?
 (defun valid-function-name-p (form)
-  (or (and (not (null form))
-           (not (eq form t))
-           (symbolp form))
+  (or (symbolp form)
       (and (consp form)
            (second form)
            (not (third form))
-           (eq (first form) 'setf))))
+           (eq (first form) 'setf)
+           (symbolp (second form)))))
 
 (defslimefun init-inspector (string)
   (with-buffer-syntax ()