anchor.diff:  
   
   (defvar *load-dates* (make-hash-table :test #'equal))
  -(defvar *clorb-pathname-defaults* *load-pathname*)
  +(defvar *source-pathname-defaults* *load-pathname*)
   
   
   (defun dir-split (base)
  +  (declare (string base))
     (let ((dir-pos (position #\; base)))
       (if dir-pos
         (cons (subseq base 0 dir-pos)
  
positive.code:               (dir (nbutlast names))
                (sf (make-pathname :name name :type "lisp"
                                   :directory (if dir (cons :relative dir))
                                   :defaults *clorb-pathname-defaults*))
                (cf (compile-file-pathname sf)))
           
           (when (or (not (probe-file cf))
  
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")
  