anchor.diff:          #+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)))))
  +        #+clisp(if (eql output :string)
  +                   (format nil "~{~A~%~}"
  +                           (loop with i = (ext:run-shell-command (format nil "~{~A~^ ~}" args) :output :stream)
  +                                 for line = (read-line i nil nil)
  +                                 while line
  +                                 collect line))
  +                   (ext:run-shell-command (format nil "~{~A~^ ~}" args))))))
   
   (defun exec (args)
     #+(and unix sbcl)
  
positive.code:                (#+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)))))
  
  #+(and unix sbcl) ;; from swank
  (progn
  
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"))
  