Changeset 12282 for trunk/abcl/src/org/armedbear/lisp/print.lisp

Timestamp:

11/25/09 22:33:59 (11 years ago)

Author:

ehuelsmann

Message:

Fix PRINT-LEVEL.* tests all of which were related to

*PRINT-LEVEL* restriction on structure printing.

File:

• trunk/abcl/src/org/armedbear/lisp/print.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/print.lisp

@@ -134 +134 @@
          (output-vector object stream))
         ((structure-object-p object)
-         (print-object object stream))
+         (cond
+           ((and (null *print-readably*)
+                 *print-level*
+                 (>= *current-print-level* *print-level*))
+            (write-char #\# stream))
+           (t
+            (print-object object stream))))
         ((standard-object-p object)
          (print-object object stream))