anchor.diff:                ((and (or (gethash (first form) *predicate-instructions-by-jump*)
                           (eql (first form) 'sys.lap-x86:jmp))
                       (not (keywordp (second form)))
  +                    (cdr i)
                       (symbolp (cadr i))
                       (eql (gethash (second form) label-targets)
                            (gethash (cadr i) label-targets)))
  
positive.code:                ;; Do nothing to eliminate the instruction.
                 (incf change-count))
                ((and (gethash (first form) *predicate-instructions-by-jump*)
                      (listp (cadr i))
                      (eql (first (cadr i)) 'sys.lap-x86:jmp)
                      (symbolp (caddr i))
  
negative.code:     (maphash (lambda (k v)
                 (declare (ignore k))
                 (setf (gethash (predicate-instruction-jump-instruction v) ht)
                       v))
               *predicate-instructions*)
      ht))
  
  