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)