anchor.diff:          (warn "Source-registry ~S is invalid. Ignored." arg)
           (funcall (read-from-string "asdf:initialize-source-registry") dir))))
   
  -(defun system (cmd args &rest rest)
  -  (declare (ignorable cmd rest))
  +(defun system (args &rest rest)
  +  (declare (ignorable rest))
     (ensure-asdf)
     (unless (find :asdf *features*)
       (error "Can't find asdf to load system"))
  
positive.code:         until (eql exp end)
          do (cl:eval exp)))
  
  (defun restart (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (funcall (read-from-string arg)))
  
  (defun entry (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (let* ((sym (read-from-string arg))
           (*package* (symbol-package sym)))
      (quit (apply sym *argv*))))
  
  (setf (fdefinition 'init) #'eval)
  
  (defun print (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (cl:print (cl:eval (read-from-string arg))))
  
  (defun write (cmd arg &rest rest)
    (declare (ignorable cmd rest))
    (cl:write (cl:eval (read-from-string arg))))
  
  (defun script (cmd arg &rest rest)
    "load and evaluate the script"
    (setf *argv* rest)
    (flet ((body (in)
  
negative.code:     (when (probe-file path)
        (sb-ext:set-sbcl-source-location path))))
  
  (defun source-registry (arg &rest rest)
    (declare (ignorable rest))
    (let ((dir (format nil "~{~A~^:~}"
                       (loop for i = arg then (subseq i (1+ pos))
                          for pos = (position #\: i)
  