anchor.diff:  	    (progn
   	      ,@b)
   	      (undo-redirects ,io-save)))))
  +
  +(defun jobs-command (ut)
  +  ;TODO add -l and -p support
  +  (loop for item in (se-bg-jobs *current-shell-environment*)
  +       do (format t "~A~%" item))
  +  0)
   
   ;TODO assignments and redirects
   (defmethod run-command ((ut utility) &key &allow-other-keys)
  
positive.code: 					  ("exit" . make-special-utility)
  					  ))
  ; TODO implement some utilities
  (defparameter +shell-utilities+ '(("cd" . make-utility)
  				  ("umask" . make-utility)
  				  ("alias" . make-utility)
  				  ("[" . make-utility)))
  
  (defparameter +special-variables+ '(:@ :# :* :? :- :$ :! :0))
  
negative.code:                     (setf iolib/pathnames:*default-file-path-defaults* abspath)
                      0)
                    (iolib/syscalls:enoent (v) (declare (ignore v)) 127))))
  	   (:|jobs|
  	     (jobs-command ut))
  	   (:|umask|
  	     (umask-command ut))
  	   (:|[|
  