[slime-cvs] CVS update: slime/slime.el

[Peter Seibel]

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

Modified Files:
	slime.el 
Log Message:
Putting in fix for Allegro tests. (Thought I checked this in the other day.)

Date: Wed Jul 21 12:53:53 2004
Author: pseibel

Index: slime/slime.el
diff -u slime/slime.el:1.375 slime/slime.el:1.376
--- slime/slime.el:1.375	Wed Jul 21 05:29:55 2004
+++ slime/slime.el	Wed Jul 21 12:53:53 2004
@@ -7047,11 +7047,16 @@
     (slime-test-expect "Completion set" expected-completions completions)))
 
 (def-slime-test arglist
+    ;; N.B. Allegro apparently doesn't return the default values of
+    ;; optional parameters. Thus the regexp in the start-server
+    ;; expected value. In a perfect world we'd find a way to smooth
+    ;; over this difference between implementations--perhaps by
+    ;; convincing Franz to provide a function that does what we want.
     (function-name expected-arglist)
     "Lookup the argument list for FUNCTION-NAME.
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank:start-server"
-       "(swank:start-server port-file &optional (style \\*communication-style\\*)\n dont-close)")
+       "(swank:start-server port-file &optional \\((style *communication-style*)\\|style\\) dont-close)")
       ("swank::compound-prefix-match"
        "(swank::compound-prefix-match prefix target)")
       ("swank::create-socket"