projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
469b670
)
Add formatting options to print-hash-table
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 27 Jun 2011 04:43:39 +0000
(22:43 -0600)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 27 Jun 2011 04:43:39 +0000
(22:43 -0600)
hash.lisp
patch
|
blob
|
history
diff --git
a/hash.lisp
b/hash.lisp
index 98e9439d27b6f2bb637750ffd437e57d6fcf2209..fb4c4fa9ced427a96f94e94f6ac5d827a49f47fa 100644
(file)
--- a/
hash.lisp
+++ b/
hash.lisp
@@
-19,6
+19,23
@@
;;; hashs
;;; hashs
+(defun print-hash (h &key (stream *standard-output*)
+ key-transform-fn value-transform-fn
+ (prefix "") (divider " -> ") (terminator "~%"))
+ (maphash #'(lambda (k v)
+ (format stream "~A~S~A~S~%"
+ prefix
+ (if key-transform-fn
+ (funcall key-transform-fn k)
+ k)
+ divider
+ (if value-transform-fn
+ (funcall value-transform-fn v)
+ v)
+ (when terminator (format stream terminator)))
+ h)
+ h)
+
(defun print-hash (h &optional (stream *standard-output*))
(maphash #'(lambda (k v) (format stream "~S -> ~S~%" k v)) h)
h)
(defun print-hash (h &optional (stream *standard-output*))
(maphash #'(lambda (k v) (format stream "~S -> ~S~%" k v)) h)
h)