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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***
Date: Wed Mar 10 12:10:38 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.144 slime/swank.lisp:1.145
--- slime/swank.lisp:1.144	Wed Mar 10 12:10:12 2004
+++ slime/swank.lisp	Wed Mar 10 12:10:38 2004
@@ -771,9 +771,6 @@
 (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)"))