anchor.diff:    "return a list of the command-line arguments"
     #+sbcl sb-ext:*posix-argv*
     #+lispworks system:*line-arguments-list*
  -  #-(or sbcl lispworks) (error "Lispworks and SBCL the only currently-supported compilers for binary creation"))
  +  #-(or sbcl lispworks) (error "Lispworks and SBCL are the only currently-supported compilers for binary creation"))
     
   (defun main ()
     "This is the main entry-point for the jwacs binary."
     (show-banner)
     (handler-case 
  -      (multiple-value-bind (template output prefix-lookup runtime target)
  +      (multiple-value-bind (template output prefix-lookup bundle-mode compress-mode runtime target)
             (decode-arguments)
           (let ((build-args (list target)))
             (unless target
  
positive.code:                ~%                  maps all absolute URI paths under /foo/ to ~A,~
                 ~%                  except for those under /foo/bar/ which are searched for~
                 ~%                  in ~A.~
                 ~%~%"
              jw-system:*executable-name* foo bar foo bar)))
  
negative.code: 
  (defun decode-arguments ()
    "Decode the command-line arguments and return the resulting option values"
    (let (template output prefix-lookup (bundle-mode :default) (compress-mode :default) runtime target)
      (do* ((arg-cell (cdr (command-line-arguments)) (cddr arg-cell))
            (arg-name (car arg-cell) (car arg-cell))
            (arg-value (cadr arg-cell) (cadr arg-cell)))
  