projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debian update
[kmrcl.git]
/
hash.lisp
diff --git
a/hash.lisp
b/hash.lisp
index fb4c4fa9ced427a96f94e94f6ac5d827a49f47fa..e849783ef99ac775a7716de71386561a365082a6 100644
(file)
--- a/
hash.lisp
+++ b/
hash.lisp
@@
-23,7
+23,7
@@
key-transform-fn value-transform-fn
(prefix "") (divider " -> ") (terminator "~%"))
(maphash #'(lambda (k v)
key-transform-fn value-transform-fn
(prefix "") (divider " -> ") (terminator "~%"))
(maphash #'(lambda (k v)
- (format stream "~A~S~A~S
~%
"
+ (format stream "~A~S~A~S"
prefix
(if key-transform-fn
(funcall key-transform-fn k)
prefix
(if key-transform-fn
(funcall key-transform-fn k)
@@
-31,11
+31,8
@@
divider
(if value-transform-fn
(funcall value-transform-fn v)
divider
(if value-transform-fn
(funcall value-transform-fn v)
- v)
-
(when terminator (format stream terminator)))
-
h)
+ v)
)
+ (when terminator (format stream terminator)))
+ h)
h)
h)
-(defun print-hash (h &optional (stream *standard-output*))
- (maphash #'(lambda (k v) (format stream "~S -> ~S~%" k v)) h)
- h)