# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1473248208 0
# Node ID 330b6240a25cd886ebc380fd8ab74b7352449ccb
# Parent  6d85d8a5d5a2138ad632b47cce388bdff0806c74
Kill the hash printer

diff -r 6d85d8a5d5a2 -r 330b6240a25c src/utils.lisp
--- a/src/utils.lisp	Sun Aug 21 15:26:37 2016 +0000
+++ b/src/utils.lisp	Wed Sep 07 11:36:48 2016 +0000
@@ -63,12 +63,6 @@
              "session" (fset:lookup message "session"))))
 
 
-; (defmethod print-object ((object hash-table) stream)
-;   (format stream "#HASH{~%~{~{    (~s : ~s)~}~%~}}"
-;           (loop :for key :being :the :hash-keys :of object
-;                 :using (hash-value value)
-;                 :collect (list key value))))
-
 (defun parse-in-package (in-package)
   (if (or (null in-package) (string= in-package ""))
     *package*