anchor.diff:                          (return-from lisp-disassemble-symbol nil))))))
           (lisp-info-popup (get-buffer-create "*disassemble*")
                            #'(lambda (out)
  -                             (princ str out)))))))
  +                             (princ str out))
  +                         nil)))))
   
   
   #+sbcl
  
positive.code:                            for i from 1
                             do (format out "~&[~d] ~a~%" i choice))
                           (terpri out)
                           (uiop/image:print-backtrace :stream out :count 100)))
      (loop
        (window-update-all)
        (let* ((str (catch 'abort (minibuf-read-string "Debug: ")))
  
negative.code:                                (format nil "~a" cdt)))))
                   (info-popup (get-buffer-create "*output*")
                               #'(lambda (out)
                                   (princ x out))
                               nil)))))))
    condition)
  
  (defun eval-string-internal (string output-buffer point
  