anchor.diff:  	    m)))))
   
   (defun enable-hashtable-literal ()
  +  "Enables the reader macro #{}# for hash-tables. The resulting
  +hash-table will use #'equal for equality. For example,
  +
  +#{:a :b :c :d}#
  +
  +will create a hash-table with the keys :a and :c. :a stores the
  +value :b, and :c stores the value :d.
  +"
     (set-dispatch-macro-character
      #\# #\{ #'|#{-reader|))
   
  
positive.code:     keys))
  
  (defun hashtable-to-alist (m)
    (let ((alist '()))
      (maphash (lambda (k v)
  	       (let ((elt (cons k v)))
  
negative.code: 
  (in-package #:kutils)
  
  ;;; "kutils" goes here. Hacks and glory await!
  
  ;;; This file contains various utilities I've written.
  
  (defun join (x sep)
    (flatten
  