anchor.diff:          (loop
             :initially (format t "~&")
             :with pc = 0
  -          :for line :in listing
  +          :for listing-line :in listing
             :do (if (and (<= start pc) (< pc end))
  -                  (progn (format t "~3D: " pc)
  +                  (progn (format t "~@[~3D ~]~3D: " line pc)
                            (if (member pc labels)
                                (format t "@~6:A " pc)
                                (format t "        "))
  
positive.code: 
  
  
  (defun disassemble-lse (byte-code &key (start 0) (end nil) (one-instruction nil))
    (let ((end (or end (length byte-code))))
      (flet ((nbop (cop) (cdr (gethash cop *cop-info* '(0 . 0))))
             (disa (cop) (car (gethash cop *cop-info* (cons cop 0)))))
  
negative.code:                                            (princ item out)
                                             (prin1 item out))))
                                     (princ ")" out)))
                           (if (member (first listing-line) bc::*branches*)
                               (format t " ; @~A~%"  (+ pc (length listing-line) (second listing-line)))
                               (format t "~%"))
                           (incf pc (length listing-line))
                           (when one-instruction (loop-finish)))
                    (incf pc (length listing-line)))))))
    (values))
  
  
  