[armedbear-cvs] r12436 - trunk/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Tue Feb  9 15:45:52 2010
New Revision: 12436

Log:
Fix describe formatting, there was a missing newline. Problem
reported by Blake McBride.


Modified:
   trunk/abcl/src/org/armedbear/lisp/describe.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/describe.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/describe.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/describe.lisp	Tue Feb  9 15:45:52 2010
@@ -139,11 +139,13 @@
         (dolist (slotd (nreverse instance-slotds))
           (describe-slot
            (%slot-definition-name slotd))))
+        (format stream "~%")
       (when class-slotds
         (format stream "The following slots have :CLASS allocation:~%")
         (dolist (slotd (nreverse class-slotds))
           (describe-slot
-           (%slot-definition-name slotd))))))
+           (%slot-definition-name slotd)))
+        (format stream "~%"))))
     (values))
 
 (defmethod describe-object ((object java:java-object) stream)