Fix describe formatting, there was a missing newline. Problem

reported by Blake McBride.
parent 76737ced
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment