anchor.diff:          t))))
   
   (defvar *included-names* '())
  -(defvar *include-path* #.*load-pathname*)
  +(defparameter *include-path* #.*load-pathname*)
   
   (defun include (names &optional provide)
     (dolist (name `(,provide
  
positive.code:   (:documentation "Roswell backend."))
  
  (in-package :ros)
  (defvar *argv* nil)
  (defvar *ros-opts* nil)
  (defvar *main* nil)
  
  ;; small tools
  (defun getenv (x)
  
negative.code: (setf (fdefinition 'load-system)
        #'system)
  
  (defparameter *version-cache* nil)
  (defun version (&optional opt)
    (if opt
        (roswell `("roswell-internal-use" "version" ,(string-downcase (princ-to-string opt))) :string t)
  