Permalink
Browse files

Minor improvement to PRINT-HASH-TABLE.

  • Loading branch information...
vseloved committed Mar 4, 2013
1 parent 27fc09d commit 1b5fef304386bc5322d851206a1991a09462ad53
Showing with 4 additions and 3 deletions.
  1. +3 −2 core/hash-table.lisp
  2. +1 −1 rutils.asd
View
@@ -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)
View
@@ -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

0 comments on commit 1b5fef3

Please sign in to comment.