anchor.diff:  
   
   (defun reload ()
  -  (compile-changed (append *base-files*
  +  (compile-changed (append #+clorb-dev *dev-pre-files*
  +                           *base-files*
                              *server-files*
                              *x-files*
  +                           #+clorb-dev *dev-post-files*
                              #-no-idlcomp *idlcomp*
                              #+use-my-idlparser *my-idlparser* )))
   
  
positive.code: 
  
  (defvar *load-dates* (make-hash-table :test #'equal))
  (defvar *clorb-pathname-defaults* *load-pathname*)
  
  
  (defun dir-split (base)
    (let ((dir-pos (position #\; base)))
      (if dir-pos
        (cons (subseq base 0 dir-pos)
  
negative.code: ;;;-*- Mode: Lisp; Package: (NET.CDDR.CLORB.SYSTEM) -*-
  
  (defpackage "NET.CDDR.CLORB.SYSTEM"
    (:use "COMMON-LISP")
    (:export "RELOAD"))
  
  (in-package "NET.CDDR.CLORB.SYSTEM")
  
  (defparameter *base-files*
    '(("clorb-pkgdcl")
  