Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Minor improvement to PRINT-HASH-TABLE.

  • Loading branch information...
commit 1b5fef304386bc5322d851206a1991a09462ad53 1 parent 27fc09d
@vseloved authored
Showing with 4 additions and 3 deletions.
  1. +3 −2 core/hash-table.lisp
  2. +1 −1  rutils.asd
View
5 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)
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.