anchor.diff:  				*default-shell*)
   	  (if command
   	      (funcall (gethash (string-upcase command) *commands*) name (cdr parsed-args))
  -	      (help))))
  -    (error () (format *error-output* "An internal error occured. Are you sure the options are before the command?~%"))))
  +	      (help nil nil))))))
   
   (defcommand help (name args)
     "help
  
positive.code: 
  ;; Default behavior is to get in the debugger,
  ;; change that.
  (setf *debugger-hook*
        (lambda (c h)
  	(declare (ignore c h))
  	(uiop:quit -1)))
  
  (defvar *commands* (make-hash-table :test #'equal))
  (defvar *doc-strings* (make-hash-table :test #'equal))
  
negative.code:   (format t "
  	Overridable variables and default values for all commands (must be BEFORE the command):
  		--default-shell=/bin/bash
  		--debug
  
  "))
  