1  (in-package :ami.helpers)
 2  
 3  (defun load-sites ()
 4    (let ((sites (directory "./sites/**/*.asd"))
 5          (quicklisp:*local-project-directories* '(#P"/home/marcecoll/common-lisp/ami/sites")))
 6      (asdf:clear-source-registry)
 7      (dolist (site sites)
 8        (let ((name (pathname-name site)))
 9          (ql:quickload name)
10          (format t "Loaded ~s~%" name)))))
11  
12