(handler-case (logical-pathname-translations "SYS")
   (error ()
     (setf (logical-pathname-translations "SYS") nil)))
 
 (pushnew
  `(#p"SYS:SITE;**;*.*.*"
      ,(merge-pathnames
        (make-pathname :directory (list
                                   :relative ".sbcl" "site"
                                   :wild-inferiors)
                       :name :wild
                       :type :wild)
        (user-homedir-pathname)))
  (logical-pathname-translations "SYS")
  :test #'equal
  :key (lambda (it) (namestring (car it))))
 
 (mapcar (lambda (it)
           (with-open-file (s it :direction :input
                                 :element-type 'character)
             (setf (logical-pathname-translations (string-upcase
                                                   (pathname-name it)))
                   (read s))))
         (directory #p"SYS:SITE;*.translations"))
 
 (load (truename #p"QL:setup.lisp"))
 

 (asdf:load-asd #p"PROJECTS:COLLECTION-CLASSES;COLLECTION-CLASS.ASD")
 (asdf:load-asd #p"PROJECTS:ALIMENTA;ALIMENTA.ASD")
 

 (push (truename #p"PROJECTS:alimenta-feed-archive;")
       asdf:*central-registry*)
 

 (ql:quickload :alimenta-feed-archive)

 (load #p"PROJECTS:alimenta-feed-archive;main.lisp")
 

 #+(or)
 (setf sb-alien::*shared-objects* nil)
 
 #+sbcl
 (defun do-sbcl ()
   (save-lisp-and-die "feed-archiver"
                      :executable t
                      :toplevel #'alimenta.feed-archive:command-line-main))
 
 #+ccl
 (defun do-ccl ()
   (ccl:save-application
    "feed-archiver"
    :prepend-kernel t
    :toplevel-function #'alimenta.feed-archive:command-line-main))
 
 (#+sbcl do-sbcl
  #+ccl do-ccl)