anchor.diff:    "Input system name and test it's loadable."
     (loop :with site-init := (site-init)
           :with depends-on := (getf (cddr site-init) :depends-on)
  -        :for s :in (loop :for str = (format nil "~a " symbols) then (subseq str (1+ pos))
  -                         :for pos := (position #\Space str)
  -                         :while pos
  -                         :collect (subseq str 0 pos))
  +        :for s :in (uiop:split-string symbols)
           :for key := (read-from-string (format nil ":~A" s))
           :do (unless (find key depends-on)
                 #+quicklisp(ql:quickload key :silent t)
  
positive.code:   ;;TBD prepare prompt-site-init-depends-on like function
    (loop :with site-init := (site-init)
          :with depends-on := (getf (cddr site-init) :depends-on)
          :for s :in (loop :for str = (format nil "~a " symbols) then (subseq str (1+ pos))
                           :for pos := (position #\Space str)
                           :while pos
                           :collect (subseq str 0 pos))
          :for key := (read-from-string (format nil ":~A" s))
          :do (when (find key depends-on)
                (setf depends-on (remove key depends-on)))
  
negative.code:               `(asdf:defsystem ,*site-init-name*)))
      path))
  
  (defun load-site-init (&key force)
    (let* ((asdf:*central-registry*
             (union (mapcar #'pathname
                            (mapcar #'directory-namestring
  