anchor.diff:          (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
  
positive.code: (defun error-handle (condition)
    (declare (ignore condition))
    (setf *backtrace* (sb-debug:backtrace-as-list)))
  
  (let (* ** *** - + ++ +++ / // /// vals)
    (defun eval-print (-)
  
negative.code:      (otherwise (pathname (user-homedir-pathname)))))
    (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 read-args ()
    (unread-char #\newline)
  