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