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

[Andras Simon]

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

Modified Files:
	swank.lisp 
Log Message:
(:newline) before the property list (now really!)
Date: Tue Sep 14 13:57:07 2004
Author: asimon

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.233 slime/swank.lisp:1.234
--- slime/swank.lisp:1.233	Tue Sep 14 13:41:55 2004
+++ slime/swank.lisp	Tue Sep 14 13:57:06 2004
@@ -2625,13 +2625,13 @@
               "It is " ,(case internal-external
                           (:internal "internal")
                           (:external "external")) " to the package: " (:value ,(symbol-package symbol))
-              (:newline)
               ,@(when (eql :internal internal-external)
                   `(" " (:action ,(with-output-to-string (export-label)
                                     (princ "[export from " export-label)
                                     (princ (package-name (symbol-package symbol)) export-label)
                                     (princ "]" export-label))
                                  ,(lambda () (export symbol (symbol-package symbol))))))
+              (:newline)
               "Property list: " (:value ,(symbol-plist symbol))
               (:newline)
               , at package