anchor.diff:        (setf buffer (make-instance 'buffer
                                     :key-map *repl-key-map*)
               (buffer-property buffer 'name) "*repl*"
  +            (buffer-property buffer 'default-pathname-defaults)
  +              (or (buffer-property (current-buffer *editor*) 'default-pathname-defaults)
  +                  *default-pathname-defaults*)
               (last-buffer *editor*) (current-buffer *editor*))
         (repl-prompt buffer)
         (push buffer (buffer-list)))
  
positive.code:        ""
         (let* ((s (make-instance 'buffer-stream :buffer (get-buffer "*repl*")))
                (*standard-output* s)
                (*error-output* s))
           (handler-case
               (format t "~S" (eval (read-from-string code)))
               (error (e) (format t "~S~%" e) ""))
  
negative.code:   (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*)  
  )
  