[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv32393

Modified Files:
	swine.lisp 
Log Message:
Check whether symbol is fbound before looking up it's arglist.


--- /project/clim-desktop/cvsroot/clim-desktop/swine.lisp	2006/06/02 21:06:32	1.20
+++ /project/clim-desktop/cvsroot/clim-desktop/swine.lisp	2006/06/03 11:26:45	1.21
@@ -478,7 +478,7 @@
 (defmethod compute-list-indentation ((syntax lisp-syntax) symbol tree path)
   (if (null (cdr path))
       ;; top level
-      (let* ((arglist (arglist symbol))
+      (let* ((arglist (when (fboundp symbol) (arglist symbol)))
              (body-or-rest-pos (or (position '&body arglist)
                                    (position '&rest arglist))))
         (if (and (or (macro-function symbol)