anchor.diff:  (defun hash-table? (x)
     (%hash-table? x))
   
  -(defun make-hash-table (&key (test #'eq)
  -							 (size *default-hash-size*))
  -  (make-%hash-table :test test :size size
  -    				:hash (make-array *default-hash-size*)))
  +(defun make-hash-table (&key (test #'eq) (size *default-hash-size*))
  +  (make-%hash-table :test test :size size :hash (make-array *default-hash-size*)))
   
   (defun %make-hash-index-num (h k)
     (let i k
  
positive.code: ;;;; TRE environment
  ;;;; Copyright (c) 2005-2006,2008-2011 Sven Klose <pixel@copei.de>
  
  (defvar *default-hash-size* 2039)
  
  
negative.code:   (?
      (number? key) (%make-hash-index-num h key)
      (string? key) (%make-hash-index-string h key)
      (%make-hash-index-num h (%%id key))))
  
  (defmacro %with-hash-bucket (bucket idx h key &rest body)
    `(with (,idx (%make-hash-index ,h ,key)
  