anchor.diff:  
   (defun decode-arguments ()
     "Decode the command-line arguments and return the resulting option values"
  -  (let (template output prefix-lookup runtime target)
  +  (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)))
  
positive.code:   "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"))
    
  (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)
            (decode-arguments)
          (let ((build-args (list target)))
            (unless target
  
negative.code:          (setf runtime arg-value))
          ((string= "-p" arg-name)
           (setf prefix-lookup (parse-prefix-lookup arg-value)))
          ((string= "-b" arg-name)
           (setf bundle-mode (boolean-arg arg-name arg-value)))
          ((string= "-c" arg-name)
           (setf compress-mode (boolean-arg arg-name arg-value)))
          ((null arg-value)
           (setf target (truename arg-name)))
          (t
           (show-usage)
           (error "Unrecognized option '~A'" arg-name))))
        (values template output prefix-lookup bundle-mode compress-mode runtime target)))
  
  (defun boolean-arg (name val)
    "Converts an argument to a boolean option to a boolean value"
    (let ((true-args '("t" "true" "on" "yes"))
          (false-args '("nil" "false" "off" "no")))
      (cond
        ((find val true-args :test 'string-equal)
         t)
        ((find val false-args :test 'string-equal)
         nil)
        (t
         (error "The argument to the ~A option must be one of: ~A" name (append true-args false-args))))))
  
  (defun parse-prefix-lookup (raw-str)
    "Takes the argument to the prefix lookup command line option and parses it into a
  