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:     (if (zerop ret)
          nil ret)))
  
  (defun ensure-asdf ()
    #-asdf
    (or
     (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
  
negative.code:                (handler-bind
                     (#+sbcl(sb-kernel:redefinition-warning #'muffle-warning))
                   (funcall #+(or sbcl clisp) 'cl:load
                            #-(or sbcl clisp) (read-from-string "asdf::eval-input")
                            (make-concatenated-stream
                             (make-string-input-stream
                              (format nil "(cl:setf cl:*load-pathname* ~S cl:*load-truename* (ignore-errors (truename cl:*load-pathname*)))~A"
  