anchor.diff:         result))))
   
   (defun structure-object-swxhash (key depthoid)
  -  (declare (optimize speed))
  +  #+sbcl(declare (optimize speed))
     (declare (type structure-object key))
     (declare (type (integer 0 #.+max-hash-depthoid+) depthoid))
  +  #-sbcl (the fixnum 481929)
  +  #+sbcl
     (let* ((layout (%instance-layout key)) ; i.e. slot #0
            (length (layout-length layout))
            (classoid (layout-classoid layout))
  
positive.code:     (t (sxhash key))))
  
  (defun array-swxhash (key depthoid)
    (declare (optimize speed))
    (declare (type array key))
    (declare (type (integer 0 #.+max-hash-depthoid+) depthoid))
    (typecase key
  
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))
  