anchor.diff:             (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 
  +       (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
  
positive.code:                               x))
                          (symbol-value var)))))
    (format t ")~%"))
  
negative.code:     "clorb-iiop"
      "cosnaming-stub"
      "clorb-util"
      "clorb-misc"
      "clorb-ifr"
      "clorb-target"
      "clorb-idl"
  