anchor.diff:  (defun error-handle (condition)
     (declare (ignore condition))
     (setf *backtrace* (sb-debug:backtrace-as-list)))
  +
  +(defun readline-read (prompt)
  +  (let ((line (rl:readline :prompt prompt :add-history t)))
  +    (loop
  +      (let ((x (handler-case (read-from-string line nil)
  +                 (error (cdt)
  +                        (declare (ignore cdt)) nil))))
  +        (if x
  +            (return x)
  +            (setf line
  +                  (concatenate 'string line " "
  +                   (rl:readline :add-history t :already-prompted t))))))))
   
   (let (* ** *** - + ++ +++ / // /// vals)
     (defun eval-print (-)
  
positive.code:         (cl-fad:list-directory (sb-posix:getcwd)))
    (values))
  
  (defun shell-args ()
    (unread-char #\newline)
    (let ((line (read-line)))
      (with-input-from-string (in line)
        (when (peek-char t in nil)
          (list (string-trim '(#\space #\tab) (read-line in)))))))
  
  (defun shell-cd (&optional dir)
    (sb-posix:chdir
     (typecase dir
  
negative.code:                    (princ condition *error-output*)
                     (terpri *error-output*)))))
        (fresh-line))
      (nth (1- i) choices)))
  
  (defun debugger (condition me-or-my-condition)
    (format t "~&~a" condition)
  