anchor.diff:  (defun lem (&rest args)
     (check-init)
     (charms/ll:initscr)
  -  (lem-internal args))
  +  (lem-1 args))
   
   (defun new-xterm (geometry foreground background title font)
     (let ((tmpfile (temp-file-name))
  
positive.code:     (sb-thread:make-thread
       #'(lambda ()
           (sb-thread:with-new-session ()
             (unwind-protect (lem-internal nil)
               (fclose io)))))
      #-sbcl
      (bt:make-thread
       #'(lambda ()
           (unwind-protect (lem-internal nil)
             (fclose io))))))
  
  (defun save-error (condition)
  
negative.code:   (charms/ll:delscreen charms/ll:*stdscr*)
    (setq *running-p* nil))
  
  (defun lem-1 (args)
    (let ((error-report
           (catch 'serious-error
             (unwind-protect
  