anchor.diff:                                 (opt "quicklisp")))))
         (when (probe-file path)
           (cl:load path)
  -        (let ((symbol (read-from-string "ql:*local-project-directories*")))
  +        (let ((symbol (read-from-string "ql:*local-project-directories*"))
  +              (path (merge-pathnames "local-projects/" (opt "homedir"))))
             (when (or (ignore-errors (probe-file path))
                       #+clisp(ext:probe-directory path))
  -            (set symbol (cons (merge-pathnames "local-projects/" (opt "homedir"))
  -                              (symbol-value symbol)))))
  +            (set symbol (cons path (symbol-value symbol)))))
           t))))
   
   (defvar *included-names* '())
  
positive.code:         ret)))
  
  (defvar *downloaded-asdf-loaded* nil)
  (defun asdf ()
    (unless *downloaded-asdf-loaded*
      (let* ((version-installed (opt "asdf.version"))
             (version (or version-installed
                          (progn (roswell '("ros" "asdf" "install"))
                                 (roswell '("config" "show" "asdf.version") :string t)))))
        (when (equal version "NIL")
          (error "asdf download error?"))
        (cl:load (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" version) (opt "homedir")))))
    (setf *downloaded-asdf-loaded* t))
  
  (let ((symbol (ignore-errors (read-from-string "asdf::*user-cache*")))
        (impl (substitute #\- #\/ (opt "impl"))))
  
negative.code:                          (not (equal (opt "asdf")
                                       (funcall (read-from-string "asdf:asdf-version")))))
                      (not (find :asdf *features*))))
         (funcall 'asdf :no-download t))
       (find :asdf *features*)
       (ignore-errors (require "asdf")))))
  
  