anchor.diff:  "
   			 depth
   			 count
  -			 (namestring (merge-pathnames output))
  +			 (determine-pbs-qsub-output-arguments directory output error)
   			 (pathname-name program-path)
   			 (namestring (merge-pathnames "pbs-arguments"))
   			 (if (> depth 1)
  
positive.code: 		 :do		 
  		 (format out "
  LEVEL~d=`qsub -t 1-~d \\
       -j oe -o ~S \\
       -N ~S \\
       $(cat ~S) \\
      ~A \\
  
negative.code: 	(error "Directory ~S already exists!" directory))
  
        (let ((*default-pathname-defaults* (parse-namestring pathspec)))
  	(ensure-directories-exist (merge-pathnames output))
  	(when (stringp error)
  	  (ensure-directories-exist (merge-pathnames error)))
  
  	(let ((if-exists (cond
  			   ((eql if-exists :supersede-all)
  