#!/bin/bash
cat > gen-elisp-spec.el <<EOF
(mapatoms
 (lambda (atom)
   (when (fboundp atom)
     (princ (format "(fboundp '%S)\n" atom)))
   (when (and (not (keywordp atom)) (boundp atom))
     (princ (format "(boundp '%S)\n" atom)))))
EOF
emacs -Q --batch --script gen-elisp-spec.el > elisp-spec.el
guile --language=elisp < elisp-spec.el