;; Add to this file any forms you wish to be evaluated before the Allegro
;; CL image is saved.

#|
;; the following are examples of how to customize the actions of custom.cl

(let ((acl-foo (sys:getenv "ACL_FOO")))
  (when acl-foo
    ;; load FOO
    (load acl-foo)))

;; a second sytle of customization:

(let ((acl-foo (sys:getenv "ACL_BAR")))
  (when acl-foo
    (push :do-bar *features*)))

#+do-bar
(setq excl:*logical-pathname-translations-database* "/foo/bar/myhosts.lisp")
|#
