anchor.diff:    (set-key #\Backspace 'repl-delete-backward-char *repl-key-map*)
     (set-key #\Tab 'repl-complete *repl-key-map*)
     (set-key #\M-O 'repl-find-matching-paren *repl-key-map*)  
  +  (set-key #\Comma 'cd-command *repl-key-map*)  
   )
  
positive.code:       (setf buffer (make-instance 'buffer
                                    :key-map *repl-key-map*)
              (buffer-property buffer 'name) "*repl*"
              (last-buffer *editor*) (current-buffer *editor*))
        (repl-prompt buffer)
        (push buffer (buffer-list)))
  
negative.code:        ""
         (let* ((s (make-instance 'buffer-stream :buffer (get-buffer "*repl*")))
                (*standard-output* s)
                (*error-output* s)
                (*default-pathname-defaults* (buffer-property (get-buffer "*repl*")
                                                              'default-pathname-defaults)))
           (handler-case
               (format t "~S" (eval (read-from-string code)))
               (error (e) (format t "~S~%" e) ""))
  