[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv12160

Modified Files:
	swank-cmucl.lisp 
Log Message:
(arglist): Catch (reader) errors in read-arglist.
Date: Sat May 22 04:14:39 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.103 slime/swank-cmucl.lisp:1.104
--- slime/swank-cmucl.lisp:1.103	Sun May 16 20:21:24 2004
+++ slime/swank-cmucl.lisp	Sat May 22 04:14:39 2004
@@ -1269,7 +1269,8 @@
                 ((c::byte-function-or-closure-p fun)
                  (byte-code-function-arglist fun))
                 ((kernel:%function-arglist (kernel:%function-self fun))
-                 (read-arglist fun))
+                 (handler-case (read-arglist fun)
+                     (error () :not-available)))
                 ;; this should work both for compiled-debug-function
                 ;; and for interpreted-debug-function
                 (t