anchor.diff:                        #'(lambda ()
                             (execute-macro 1)))
     t)
  +
  +(defun sit-for (seconds)
  +  (window-update-all)
  +  (charms/ll:timeout seconds)
  +  (let ((code (charms/ll:wgetch (window-win))))
  +    (charms/ll:timeout -1)
  +    (cond ((= code -1)
  +           t)
  +          ((= code (char-code C-g))
  +           (throw 'abort 'abort))
  +          (t
  +           nil))))
   
   (define-key *global-keymap* (kbd "C-u") 'universal-argument)
   (define-command universal-argument () ()
  
positive.code:                (window-maybe-update)))
              (t
               (charms/ll:ungetch code)
               (return))))))
  
  (defun lem-main (debug-p)
  
negative.code:           end-macro
            execute-macro
            apply-macro-to-region-lines
            sit-for
            universal-argument
            input-key
            self-insert
  