anchor.diff:     t))
   
   (define-key *lisp-mode-keymap* (kbd "C-xl") 'load-file)
  +(define-key *lisp-mode-keymap* (kbd "C-xC-l") 'load-file)
   (define-command load-file (filename) ("fLoad File: ")
     (handler-case
         (when (and (file-exist-p filename)
  
positive.code:   :keymap *inferior-lisp-mode-keymap*
    :syntax-table *lisp-syntax-table*)
  
  (define-command inferior-lisp () ()
    (let* ((buffer (get-buffer-create "*REPL*")))
      (setq *current-window* (pop-to-buffer buffer))
  
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")
  