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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
Fix test.
Date: Wed Mar 10 12:10:13 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.143 slime/swank.lisp:1.144
--- slime/swank.lisp:1.143	Wed Mar 10 10:49:34 2004
+++ slime/swank.lisp	Wed Mar 10 12:10:12 2004
@@ -771,10 +771,13 @@
 (defun test-print-arglist (list string)
   (string= (print-arglist-to-string list) string))
 
+(loop for s being the symbols in (find-package :cl)
+      minimize (length (string s)))
+
 ;; Should work:
 (assert (test-print-arglist '(function cons) "(function cons)"))
 (assert (test-print-arglist '(quote cons) "(quote cons)"))
-(assert (test-print-arglist '(&key (function #'f)) "(&key (function #'f))"))
+(assert (test-print-arglist '(&key (function #'+)) "(&key (function #'+))"))
 ;; Expected failure:
 ;; (assert (test-print-arglist '(&key ((function f))) "(&key ((function f)))"))