anchor.diff:                 (#+sbcl(sb-kernel:redefinition-warning #'muffle-warning))
                (cl:load (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" (opt "asdf")) (opt "homedir")))))))
        (find :asdf *features*)
  -     (ignore-errors (require :asdf)))))
  +     (ignore-errors (require "asdf")))))
   
   #+(and unix sbcl) ;; from swank
   (progn
  
positive.code:         #+sbcl(funcall (read-from-string "sb-ext:run-program")
                         (first args) (mapcar #'princ-to-string (rest args))
                         :output out)
          #+clisp(ext:run-shell-command (format nil "~{~A~^ ~}" args :output output)))))
  
  (defun exec (args)
    #+(and unix sbcl)
  
negative.code:                                (and environment (getenv environment))
                                 (opt "quicklisp")))))
        (when (probe-file path)
  	(cl:load path)
  	(let ((symbol (read-from-string "ql:*local-project-directories*")))
            (when (or (ignore-errors (probe-file path))
                      #+clisp(ext:probe-directory path))
              (set symbol (cons (merge-pathnames "local-projects/" (opt "homedir"))
  