anchor.diff:                (dir (nbutlast names))
                 (sf (make-pathname :name name :type "lisp"
                                    :directory (if dir (cons :relative dir))
  -                                 :defaults *clorb-pathname-defaults*))
  +                                 :defaults *source-pathname-defaults*))
                 (cf (compile-file-pathname sf)))
            
            (when (or (not (probe-file cf))
  
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")
  