Minor improvement to PRINT-HASH-TABLE.

vseloved · Mar 4, 2013 · 1b5fef3 · 1b5fef3
1 parent 27fc09d
commit 1b5fef3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/core/hash-table.lisp b/core/hash-table.lisp
@@ -108,11 +108,12 @@ Hash table is initialized using the HASH-TABLE-INITARGS."
                      (print-hash-table k stream)
                      (prin1 k stream))
                  (princ " " stream)
-                 (when (listp v) (princ #\' stream))
+                 (when (and v (listp v)) (princ #\' stream))
                  (if (typep v 'hash-table)
                      (print-hash-table v stream)
                      (prin1 v stream)))
                ht)
       (pprint-indent :block 1 stream)
       (pprint-newline :mandatory stream)
-      (format stream "}~%"))))
+      (princ "} " stream)))
+  ht)
diff --git a/rutils.asd b/rutils.asd
@@ -6,7 +6,7 @@
 
 (defsystem #:rutils
   :name "Reasonable utilities"
-  :version "2.6.2"
+  :version "2.6.3"
   :maintainer "Vsevolod Dyomkin <vseloved@gmail.com>"
   :licence "3-clause MIT licence"
   :description "A reasonable collection of basic utilities for syntactic