anchor.diff:      "clorb-poa"
       "clorb-srv"))
   
  +(defparameter *dev-pre-files*
  +  '("luna;package"
  +    "luna;testsuite"
  +    "luna;pattern"))
  +
  +(defparameter *dev-post-files*
  +  '("support-test"))
   
   (defparameter *x-files*
  -  '("luna;package"
  -    "luna;testsuite"
  -    "luna;pattern"
  -    "setup-test"
  -    "support-test"
  -    ;; Experimental
  +  '(;; Experimental
       "internalize"
       "idef-read"
       "idef-write"
  
positive.code: 
  
  (defun reload ()
    (compile-changed (append *base-files*
                             *server-files*
                             *x-files*
                             #-no-idlcomp *idlcomp*
                             #+use-my-idlparser *my-idlparser* )))
  
  
negative.code:               (dir (nbutlast names))
                (sf (make-pathname :name name :type "lisp"
                                   :directory (if dir (cons :relative dir))
                                   :defaults *source-pathname-defaults*))
                (cf (compile-file-pathname sf)))
           
           (when (or (not (probe-file cf))
  