anchor.diff:        ((> args-len 1) (clox-help))
         ((= 1 args-len) (run-file (first args)))
         (t (run-prompt))))
  -  (uiop:quit)
  +  (quit)
     nil)
   
   (-> clox-help () null)
   (defun clox-help ()
     (show-option-help +command-line-spec+ :sort-names t)
  -  (uiop:quit)
  +  (quit)
     nil)
   
   (-> run-file (string) null)
  
positive.code: (in-package :clox)
  
  (defparameter +command-line-spec+
    '((("help" #\h #\?) :type boolean :optional t :documentation "Show help.")
      (("verbose" #\v) :type boolean :optional t :documentation "Become verbose, whatever it means.")))
  
  (defun main ()
    (handle-command-line
  
negative.code: 
  (-> run (string) null)
  (defun run (source)
    (loop for token across (scan-tokens source)
       do (format t "~A~%" token))
    (when (had-error)
      (quit 1))
    nil)
  