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:                  (setf (site-init) site-init)
                   (message "~A" depends-on)))
  
  ;; TBD prepare some commands to edit asd file.
  ;; M-x site-init-edit-dependency / prepare buffer one system in a line which are editable. test loadable when save and update asd.
  ;; M-x site-init-add / prepare a file which load.
  
negative.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 (uiop:split-string symbols)
          :for key := (read-from-string (format nil ":~A" s))
          :do (when (find key depends-on)
                (setf depends-on (remove key depends-on)))
  