[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv28049

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el ([test] arglist): Guard against nil.  ECL
returns nil most of the time.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/02 17:07:00	1.1621
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/02 21:57:23	1.1622
@@ -13,6 +13,11 @@
 
 	* swank-loader.lisp (*contribs*): Add `swank-sbcl-exts'.
 
+2009-01-02  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el ([test] arglist): Guard against nil.  ECL
+	returns nil most of the time.
+
 2009-01-01  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-eval-async, slime-dispatch-event): Canoncalize
--- /project/slime/cvsroot/slime/slime.el	2009/01/01 16:08:53	1.1088
+++ /project/slime/cvsroot/slime/slime.el	2009/01/02 21:57:23	1.1089
@@ -7512,13 +7512,12 @@
       ("cl:lisp-implementation-type" "(cl:lisp-implementation-type )")
       ("cl:class-name" 
        "(cl:class-name \\(class\\|object\\|instance\\|structure\\))"))
-  (slime-check-top-level)
   (let ((arglist (slime-eval `(swank:operator-arglist ,function-name 
                                                       "swank"))))
     (slime-test-expect "Argument list is as expected"
-                       expected-arglist (downcase arglist)
-                       #'string-match))
-  (slime-check-top-level))
+                       expected-arglist (and arglist (downcase arglist))
+                       (lambda (pattern arglist)
+                         (and arglist (string-match pattern arglist))))))
 
 (def-slime-test (compile-defun ("allegro" "lispworks" "clisp" "ccl"))
     (program subform)