anchor.diff:    :keymap *inferior-lisp-mode-keymap*
     :syntax-table *lisp-syntax-table*)
   
  +(define-key *global-keymap* (kbd "C-xz") 'inferior-lisp)
  +(define-key *global-keymap* (kbd "C-xC-z") 'inferior-lisp)
   (define-command inferior-lisp () ()
     (let* ((buffer (get-buffer-create "*REPL*")))
       (setq *current-window* (pop-to-buffer buffer))
  
positive.code:    t))
  
  (define-key *lisp-mode-keymap* (kbd "C-xl") 'load-file)
  (define-command load-file (filename) ("fLoad File: ")
    (handler-case
        (when (and (file-exist-p filename)
  
negative.code:                  (load filename))))
      (error (cdt)
             (lisp-error-clause cdt))))
  
  (define-key *lisp-mode-keymap* (kbd "C-xm") 'macroexpand-lisp)
  (define-command macroexpand-lisp (arg) ("P")
  