anchor.diff:          t))))
   
   (defvar *included-names* '("init"))
  -(defparameter *include-path* *load-pathname*)
  +(defparameter *include-path* (or #.*compile-file-pathname* *load-pathname*))
   
   (defun include (names &optional provide)
     (loop
  
positive.code:                    (path (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" version) (opt "homedir"))))
                (when (equal version "NIL")
                  (error "asdf download error?"))
                (when (probe-file path)
                  (ignore-errors
                   (locally
  
negative.code:             (not (equal provide name))
              (funcall 'load path))))
  
  (defun swank (&rest params)
    (include "util-swank")
    (apply (read-from-string "roswell.util.swank:swank") params))
  