anchor.diff:  		 :do		 
   		 (format out "
   LEVEL~d=`qsub -t 1-~d \\
  -     -j oe -o ~S \\
  +     ~A \\
        -N ~S \\
        $(cat ~S) \\
       ~A \\
  
positive.code: (defvar *pbs-arguments-string* "")
  (defvar *pbs-program-arguments-string* "")
  
  (defun prepare-pbs-script (directory area tree program &key (if-exists :error if-exists-p) (output "stdout/"))
    (declare (type (member :error :supersede :supersede-all) if-exists))
    (let ((program-path (if (listp program)
  			  (apply #'lisp-executable-pathname program)
  
negative.code: "
  			 depth
  			 count
  			 (determine-pbs-qsub-output-arguments directory output error)
  			 (pathname-name program-path)
  			 (namestring (merge-pathnames "pbs-arguments"))
  			 (if (> depth 1)
  