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))