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:   ;; cmucl-2.4.17 turns the ASH into a full call, requiring the
    ;; UNSIGNED-BYTE 32 argument to be coerced to a bignum, requiring
    ;; consing, and thus generally obliterating performance.)
    (declare (optimize (speed 3) (safety 0)))
    (declare (type (and fixnum unsigned-byte) x y))
    ;; the ideas here:
    ;;   * Bits diffuse in both directions (shifted left by up to 2 places
  
negative.code:     result))
  
  (defun list-swxhash (key depthoid)
    #+sbcl(declare (optimize speed))
    (declare (type list key))
    (declare (type (integer 0 #.+max-hash-depthoid+) depthoid))
    (cond ((null key)
  