anchor.diff:  (defparameter *argv* nil)
   (defparameter *ros-opts* nil)
   (defparameter *main* nil)
  +(defvar *cmd* nil)
   (defparameter *load* `((identity . cl:load)))
   
   ;; small tools
  
positive.code: (setf (fdefinition 'load-system)
        #'system)
  
  (defun package (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (setq *package* (find-package (read-from-string (format nil "#:~A" arg)))))
  
  (defun system-package (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (apply #'system cmd arg rest)
    (apply #'package cmd arg rest))
  
  (defun eval (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (loop with start = 0
          with end = (gensym)
          with exp
  
negative.code:                                         "" line)))
                             in
                             (make-string-input-stream
                              (if (eql *cmd* :script)
                                  "(roswell:quit (cl:apply 'main roswell:*argv*))"
                                  "(setf roswell:*main* 'main)"))))))
               (setf *features* (remove :ros.script *features*)))))
  