anchor.diff:  (defun reload ()
     #+clorb-packer-luna   (packer:require-package :net.cddr.luna)
     #+clorb-packer-redpas (packer:require-package :net.cddr.redpas)
  -  (compile-changed 
  +  (compile-changed
      (append #-clorb-packer-luna   *luna-files*
              #-clorb-packer-redpas *redpas-files*
              *base-files*
  
positive.code:            (multiple-value-bind (val good) (gethash key opts)
               (unless good (warn "Undefined load opt: ~S" key))
               val)))
         (defun ,setter (&key ,@(loop for (nil def) in opts for var in vars 
                                      collect `(,var ,def)))
           ,(format nil "Set load options~:{~%~A (~A) - ~A~}" opts)
           ,@(loop for (key) in opts for var in vars
  
negative.code:     "clorb-iiop"
      "cosnaming-stub"
      "clorb-util"
      "clorb-misc"
      "clorb-ifr"
      "clorb-target"
      "clorb-idl"
  