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