anchor.diff:  
   
   
  -(defun disassemble-lse (byte-code &key (start 0) (end nil) (one-instruction nil))
  +(defun disassemble-lse (byte-code &key (start 0) (end nil) (one-instruction nil) (line 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)))))
  
positive.code:                                  (with-output-to-string (out)
                                     (princ "(" out)
                                     (let ((first t))
                                       (dolist (item line)
                                         (if first
                                             (setf first nil)
                                             (princ " " out))
  
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))
  
  
  