anchor.diff:  ;;;;LEGAL
   ;;;;    AGPL3
   ;;;;    
  -;;;;    Copyright Pascal J. Bourguignon 2003 - 2015
  +;;;;    Copyright Pascal J. Bourguignon 2003 - 2016
   ;;;;    
   ;;;;    This program is free software: you can redistribute it and/or modify
   ;;;;    it under the terms of the GNU Affero General Public License as published by
  
positive.code: ;; 18 - HASH-TABLES
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun hash-table-keys (hash)
    "Returns a list of the keys in the hash-table."
    (let ((result '()))
      (maphash (lambda (k v) (declare (ignore v)) (push k result)) hash)
      result))
  
  (defun hash-table-values (table)
    "Returns a list of the values in the hash-table."
    (let ((result '()))
      (maphash (lambda (k v) (declare (ignore k)) (push v result)) table)
      result))
  
  (defun hash-table-entries (hash)
    "Returns an a-list of the entries (key . val) in the hash-table."
    (let ((result '()))
      (maphash (lambda (k v) (push (cons k v) result)) hash)
      result))
  
  (defun hash-table-path (htable &rest keys)
    "Given a hash-table that may contain other hash-table, walks down
  the path of KEYS, returning the ultimate value"
    (if (null keys)
        htable
        (apply (function hash-table-path) (gethash (first keys) htable) (rest keys))))
  
  (defun copy-hash-table (table)
    "
  
negative.code:    "NSUBSEQ"
     ;; 18 - HASH-TABLES
     "HASH-TABLE-KEYS" "HASH-TABLE-VALUES"
     "HASH-TABLE-ENTRIES" "HASH-TABLE-SELECT"
     "HASH-TABLE-PATH"
     "COPY-HASH-TABLE" "MAP-INTO-HASH-TABLE"
     "HASHTABLE" "PRINT-HASHTABLE"
     "HASH-TABLE-TO-SEXP"
  