[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	swank-arglists.lisp ChangeLog 
Log Message:
	* swank-arglists.lisp (arglist-dispatch [define-compiler-macro]):
	guard against when we're in the body of a compiler-macro
	definition for a function not yet compiled into the image.


--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/03/22 11:25:28	1.31
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/05/20 19:25:58	1.32
@@ -1165,14 +1165,15 @@
 	   (fn (and (valid-function-name-p fn-name)
 		    (fboundp fn-name)
 		    (fdefinition fn-name))))
-      (with-available-arglist (arglist) (arglist fn)
-        (return-from arglist-dispatch
-          (values (make-arglist :provided-args (if remove-args
-                                                   nil
-                                                   (list fn-name))
-                                :required-args (list arglist)
-                                :rest "body" :body-p t)
-                  t)))))
+      (when fn
+        (with-available-arglist (arglist) (arglist fn)
+          (return-from arglist-dispatch
+            (values (make-arglist :provided-args (if remove-args
+                                                     nil
+                                                     (list fn-name))
+                                  :required-args (list arglist)
+                                  :rest "body" :body-p t)
+                    t))))))
   (call-next-method))
 
 (defmethod arglist-dispatch ((operator-type (eql :function)) (operator (eql 'eval-when))
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/05/20 19:17:39	1.213
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/05/20 19:25:58	1.214
@@ -1,5 +1,11 @@
 2009-05-20  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-arglists.lisp (arglist-dispatch [define-compiler-macro]):
+	guard against when we're in the body of a compiler-macro
+	definition for a function not yet compiled into the image.
+
+2009-05-20  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime-fontifying-fu.el (slime-search-for-suppressed-forms):
 	Retrieve match data early now that `slime-current-parser-state'
 	does not save it anymore.