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:         (loop
            :initially (format t "~&")
            :with pc = 0
            :for line :in listing
            :do (if (and (<= start pc) (< pc end))
                    (progn (format t "~3D: " pc)
                           (if (member pc labels)
                               (format t "@~6:A " pc)
                               (format t "        "))
  
negative.code:                                  (with-output-to-string (out)
                                     (princ "(" out)
                                     (let ((first t))
                                       (dolist (item listing-line)
                                         (if first
                                             (setf first nil)
                                             (princ " " out))
  