7 Jan
2007
7 Jan
'07
7:48 p.m.
Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv21022/Drei Modified Files: lisp-syntax-swank.lisp Log Message: Handle :not-available return value from `swank::arglist' (makes it work on CLISP). --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp 2006/11/08 01:15:33 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp 2007/01/07 19:48:16 1.2 @@ -95,7 +95,9 @@ (defmethod arglist ((image swank-local-image) symbol) (declare (ignore image)) - (swank::arglist symbol)) + (let ((arglist (swank::arglist symbol))) + (unless (eq arglist :not-available) + arglist))) (defmethod simple-completions ((image swank-local-image) string default-package) (declare (ignore image))