anchor.diff:                          while pos))))
       (if (zerop (length dir))
           (warn "Source-registry ~S isn't valid. Ignored." arg)
  -        (asdf:initialize-source-registry dir))))
  +        (funcall (read-from-string "asdf:initialize-source-registry") dir))))
   
   (defun system (cmd args &rest rest)
     (declare (ignorable cmd rest))
  
positive.code: 
  ;; small tools
  (defun getenv (x)
    (asdf::getenv x))
  
  #+(and unix sbcl) ;; from swank
  (progn
  
negative.code: 
  (defun setenv (name value)
    (declare (ignorable name value))
    #+sbcl(funcall (read-from-string "sb-posix:setenv") name value 1)
    #+ccl(ccl:setenv name value t))
  
  (defun unsetenv (name)
    (declare (ignorable name))
    #+sbcl(funcall (read-from-string "sb-posix:unsetenv") name)
    #+ccl(ccl:unsetenv name))
  
  (defun quit (&optional (return-code 0) &rest rest)
    (let ((ret (or (and (numberp return-code) return-code) (first rest) 0)))
      (ignore-errors(funcall 'asdf::quit ret))
      #+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))))
  
  (defun exec (args)
    #+(and unix sbcl)
    (execvp (first args) args)
    #+(and unix ccl)
    (ccl::%execvp args)
    (funcall (read-from-string "uiop/run-program:run-program")
             (format nil "~{~A~^ ~}" args))
    (quit -1))
  
  (defun ros-opts ()
    (or *ros-opts*
  