anchor.diff:  (setf (fdefinition 'load-system)
         #'system)
   
  -(defun package (cmd arg &rest rest)
  -  (declare (ignorable cmd rest))
  +(defun package (arg &rest rest)
  +  (declare (ignorable 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))
  +(defun system-package (arg &rest rest)
  +  (declare (ignorable rest))
  +  (apply #'system arg rest)
  +  (apply #'package arg rest))
  +
  +(defun eval (arg &rest rest)
  +  (declare (ignorable rest))
     (loop with start = 0
           with end = (gensym)
           with exp
  
positive.code:     (when (probe-file path)
        (sb-ext:set-sbcl-source-location path))))
  
  (defun source-registry (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (let ((dir (format nil "~{~A~^:~}"
                       (loop for i = arg then (subseq i (1+ pos))
                          for pos = (position #\: i)
  
negative.code: (defparameter *argv* nil)
  (defparameter *ros-opts* nil)
  (defparameter *main* nil)
  (defvar *cmd* nil)
  (defparameter *load* `((identity . cl:load)))
  
  ;; small tools
  