hash-syntax.lisp

(set-macro-character #\} (get-macro-character #\)))

(set-macro-character #\{
  #'(lambda (stream char)
      (declare (ignore char))
      (let ((plist (read-delimited-list #\} stream))
            (hash (gensym)))
        `(let ((,hash (make-hash-table :test #'equal)))
           ,@(loop for (key value) on plist by #'cddr
                collect `(setf (gethash ,key ,hash) ,value))
           ,hash))))

;;; print hash tables
(set-pprint-dispatch 'hash-table
  #'(lambda (stream hash)
      (format stream "{~{~{~S ~S~}~^, ~}}"
              (loop for k being the hash-key of hash using (hash-value v)
                 collect (list k v)))))