[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(setf-definitions): Also include defs which were created with 
(defun (setf NAME) ...). 
Previously we only found definitions created with defsetf of
define-setf-expander.


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/11/19 21:33:03	1.167
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/11/23 23:13:27	1.168
@@ -1137,7 +1137,10 @@
 
 (defun setf-definitions (name)
   (let ((function (or (ext:info :setf :inverse name)
-                      (ext:info :setf :expander name))))
+                      (ext:info :setf :expander name)
+                      (and (symbolp name)
+                           (fboundp `(setf ,name))
+                           (fdefinition `(setf ,name))))))
     (if function
         (list (list `(setf ,name) 
                     (function-location (coerce function 'function)))))))