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

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(arglist): Return :not-available if arglist lookup fails with an
error.

Date: Mon Apr 26 13:11:36 2004
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.29 slime/swank-allegro.lisp:1.30
--- slime/swank-allegro.lisp:1.29	Wed Apr  7 12:35:20 2004
+++ slime/swank-allegro.lisp	Mon Apr 26 13:11:36 2004
@@ -68,7 +68,8 @@
 ;;;; Misc
 
 (defimplementation arglist (symbol)
-  (excl:arglist symbol))
+  (handler-case (excl:arglist symbol)
+    (simple-error () :not-available)))
 
 (defimplementation macroexpand-all (form)
   (excl::walk form))