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