anchor.diff:  
   ;; Default behavior is to get in the debugger,
   ;; change that.
  +(defvar *debug* nil)
  +(defvar *original-hook* *debugger-hook*)
   (setf *debugger-hook*
         (lambda (c h)
  -	(declare (ignore c h))
  -	(uiop:quit -1)))
  +	(if *debug*
  +	    (funcall *original-hook* c h)
  +	    (progn
  +	      (format t "An internal error occured. Are you sure the options are before the command?~%")
  +	      (uiop:quit -1)))))
   
   (defvar *commands* (make-hash-table :test #'equal))
   (defvar *doc-strings* (make-hash-table :test #'equal))
  
positive.code: 	     (command (caar parsed-args))
  	     (name (cadar parsed-args)))
  	;; *lxc-network* and *ip-regex* are voluntarily not available
  	(default-variables-let (*lxc-default-folder*
  				*lxc-rootfs*
  				*lxc-folder*
  				*lxc-host-extension*
  
negative.code:   (format t "
  	Overridable variables and default values for all commands (must be BEFORE the command):
  		--default-shell=/bin/bash
  		--debug
  
  "))
  