anchor.diff:        (t
          (with-redirected-io ((command-redirects ut))
   	 (case cmd-name
  +	   (:|break|
  +	     (throw-command ut 'break))
  +	   (:|:|
  +	     0)
  +	   (:|continue|
  +	     (throw-command ut 'continue))
   	   (:|.|
   	     (dot-command ut))
  -	   (:|:|
  -	     0)
  +	   (:|eval|
  +	     (eval-command ut))
   	   (:|exec|
   	     (exec-command ut))
  +	   (:|exit|
  +	     (exit-command ut))
   	   (:|export|
   	     (export-command ut))
  -	   (:|eval|
  -	     (eval-command ut))
  -	   (:|break|
  -	     (throw-command ut 'break))
  +	   (:|return|
  +	     (return-command ut))
   	   (:|unset|
   	     (unset-command ut))
  -	   (:|umask|
  -	     (umask-command ut))
  -	   (:|exit|
  -	     (exit-command ut))
  -	   (:|continue|
  -	     (throw-command ut 'continue))
  -	   (:|alias|
  -	     (alias-command ut))))))))
  +	   ))))))
   
   (defun assignments-to-env (assignments)
     (let ((env (iolib/os:environment)))
  
positive.code: 	  (assignments-to-env (command-assignments ut)))
      (unwind-protect
  	 (case (make-keyword (car (command-words ut)))
  	   (:|cd|
               (let
                 ((abspath
  
negative.code:                     (setf iolib/pathnames:*default-file-path-defaults* abspath)
                      0)
                    (iolib/syscalls:enoent (v) (declare (ignore v)) 127))))
  	   (:|umask|
  	     (umask-command ut))
  	   (:|[|
  	     (run-command (make-program-command "/usr/bin/[" (command-words ut)
  						(command-assignments ut)
  						(command-redirects ut)))))
        (setf (iolib/os:environment) env))))
  
  (defun return-command (ut)
    (when (second (command-words ut))
      (setf (se-last-returnval *current-shell-environment*)
  	  (or (parse-integer (Second (command-words ut)) :junk-allowed t)
  	      255))
      (throw 'plush-return (se-last-returnval *current-shell-environment*))))
  				 
  (defun dot-command (ut)
    (let* ((script (second (command-words ut)))
  	 (script (if (position #\/ script)
  		     script
  		     (search-path script))))
      (format *error-output* ". ~a~%" script)
      (catch 'plush-return
        (with-open-file (f script)
  	(posix-repl :input-stream f :prompt nil :debug t))
        (format *error-output* "DONE: ~a~%" script))
      (se-last-returnval *current-shell-environment*)))
  
  (defun quote-string (string)
  