[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv30229

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (classify-symbol): Check fboundp before calling fdefinition,
ECL doesn't like (fdefinition nil).


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/13 19:55:04	1.1916
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/13 20:23:57	1.1917
@@ -1,5 +1,8 @@
 2009-11-13  Stas Boukarev  <stassats at gmail.com>
 
+	* swank.lisp (classify-symbol): Check fbound before calling fdefinition,
+	ECL doesn't like (fdefinition nil).
+
 	* swank-ecl.lisp (swank-mop:compute-applicable-methods-using-classes):
 	Add a dummy function. ECL doesn't have it, but some contribs are using it.
 	Patch by Andy Hefner.
--- /project/slime/cvsroot/slime/swank.lisp	2009/11/03 14:33:31	1.672
+++ /project/slime/cvsroot/slime/swank.lisp	2009/11/13 20:23:57	1.673
@@ -701,8 +701,9 @@
       (when (macro-function symbol)     (push :macro result))
       (when (special-operator-p symbol) (push :special-operator result))
       (when (find-package symbol)       (push :package result))
-      (when (typep (ignore-errors (fdefinition symbol))
-                   'generic-function)
+      (when (and (fboundp symbol)
+                 (typep (ignore-errors (fdefinition symbol))
+                        'generic-function))
         (push :generic-function result))
 
       result)))