anchor.diff:      keys))
   
   (defun hashtable-to-alist (m)
  +  "Converts the hash-table given to an alist of (key . value) pairs."
     (let ((alist '()))
       (maphash (lambda (k v)
   	       (let ((elt (cons k v)))
  
positive.code: 
  (in-package #:kutils)
  
  ;;; "kutil" goes here. Hacks and glory await!
  
  (defun join (x sep)
    (flatten
  
negative.code: 	    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|))
  
  