anchor.diff:       for arg = (if p (subseq ar 0 p) ar)
        do (if (find :quicklisp *features*)
               (funcall (read-from-string "ql:quickload") arg :silent t)
  -            #+asdf(asdf:operate 'asdf:load-op arg))
  +            (funcall (read-from-string "asdf:operate") (read-from-string "asdf:load-op") arg)) 
        while p))
   
   (setf (fdefinition 'load-system)
  
positive.code: 
  (defun quit (&optional (return-code 0) &rest rest)
    (let ((ret (or (and (numberp return-code) return-code) (first rest) 0)))
      (ignore-errors (funcall (read-from-string "asdf::quit") ret))
      ;; below are for those environments which lacks neither asdf or uiop.
      #+sbcl (ignore-errors (funcall (read-from-string "cl-user::exit") :code ret))
      #+sbcl (ignore-errors (funcall (read-from-string "cl-user::quit") :unix-status ret))
      #+clisp (ext:exit ret)
      #+ccl (ccl:quit ret)
      #+cmucl (unix:unix-exit ret)
      t))
  
  (defun run-program (args &key output)
  
negative.code:     (if (zerop ret)
          nil ret)))
  
  (let (sentinel)
    (defun ensure-asdf ()
      (or
       sentinel
       (not (setf sentinel t))
       (find :asdf *features*)
       (ignore-errors (cl:load (merge-pathnames (format nil "lisp/asdf/~A/asdf.lisp" (opt "asdf")) (opt "homedir"))))
       (ignore-errors (require :asdf)))))
  
  #+(and unix sbcl) ;; from swank
  (progn
  