anchor.diff:                `(asdf:defsystem ,*site-init-name*)))
       path))
   
  -(defun load-site-init ()
  +(defun load-site-init (&key force)
     (let* ((asdf:*central-registry*
              (union (mapcar #'pathname
                             (mapcar #'directory-namestring
  
positive.code:   "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 key := (read-from-string (format nil ":~A" s))
          :do (unless (find key depends-on)
                #+quicklisp(ql:quickload key :silent t)
  
negative.code:                   :test #'equal))
           (system-name *site-init-name*)
           (key (intern (string-upcase system-name) :keyword)))
      (unless (and (find key *features*)
                   (not force))
        (pushnew key *features*)
        (asdf:load-asd (site-init-path))
        (let ((*package* (find-package :lem-user)))
  