[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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