scheme/mit/geiser/compile.scm

   1 (declare (usual-integrations))
   2
   3 (load-option 'CREF)
   4
   5 (with-working-directory-pathname
   6     (directory-pathname (current-load-pathname))
   7   (lambda ()
   8     (cf "emacs")
   9     (cref/generate-constructors "geiser" 'ALL)))