anchor.diff:      (t (sxhash key))))
   
   (defun array-swxhash (key depthoid)
  -  (declare (optimize speed))
  +  #+sbcl(declare (optimize speed))
     (declare (type array key))
     (declare (type (integer 0 #.+max-hash-depthoid+) depthoid))
     (typecase key
  
positive.code:     result))
  
  (defun number-swxhash (key)
    (declare (optimize speed))
    (declare (type number key))
    (flet ((sxhash-double-float (val)
             (declare (type double-float val))
  
negative.code:               (swxhash (cdr key) (1- depthoid))))))
  
  (defun hash-table-swxhash (key)
    #+sbcl(declare (optimize speed))
    (declare (type hash-table key))
    (let ((result 103924836))
      (declare (type fixnum result))
  