anchor.diff:  	     (command (caar parsed-args))
   	     (name (cadar parsed-args)))
   	;; *lxc-network* and *ip-regex* are voluntarily not available
  -	(default-variables-let (*lxc-default-folder*
  +	(default-variables-let (*debug*
  +				*lxc-default-folder*
   				*lxc-rootfs*
   				*lxc-folder*
   				*lxc-host-extension*
  
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: 				*default-shell*)
  	  (if command
  	      (funcall (gethash (string-upcase command) *commands*) name (cdr parsed-args))
  	      (help nil nil))))))
  
  (defcommand help (name args)
    "help
  