anchor.diff:                 (setf i (cdr i))
                  (incf change-count))
                 ((or (gethash (first form) *predicate-instructions-by-jump*)
  -                   (eql (first form) 'sys.lap-x86:jmp)
  -                   (not (keywordp (second form))))
  +                   (eql (first form) 'sys.lap-x86:jmp))
                  (when (eql (first form) 'sys.lap-x86:jmp)
                    (setf after-unconditional-jmp t))
                  ;; Jcc or JMP
  
positive.code:               ((and (or (gethash (first form) *predicate-instructions-by-jump*)
                          (eql (first form) 'sys.lap-x86:jmp))
                      (not (keywordp (second form)))
                      (symbolp (cadr i))
                      (eql (gethash (second form) label-targets)
                           (gethash (cadr i) label-targets)))
  
negative.code:                ;; 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))
  