X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/01868954eb076e618ed5b9f9425e428628e9fdbf..684d95c7eb6ec755d38efacbc377e9e60ba7044e:/doc/list-exports

diff --git a/doc/list-exports b/doc/list-exports
index 1d9b0c4..87d85be 100755
--- a/doc/list-exports
+++ b/doc/list-exports
@@ -1,9 +1,5 @@
-#! /bin/sh
-":"; ### -*-lisp-*-
-":"; CL_SOURCE_REGISTRY=$(pwd)/build/src/:
-":"; ASDF_OUTPUT_TRANSLATIONS=$(pwd)/src:$(pwd)/build/src
-":"; export CL_SOURCE_REGISTRY ASDF_OUTPUT_TRANSLATIONS
-":"; exec cl-launch -X -l "sbcl cmucl" -s asdf -i "(sod-exports::main)" -- "$0" "$@" || exit 1
+#! /usr/bin/runlisp -Lsbcl,cmucl
+;;; -*-lisp-*-
 
 (cl:defpackage #:sod-exports
   (:use #:common-lisp
@@ -13,7 +9,8 @@
 ;; Load the target system so that we can poke about in it.
 (cl:in-package #:sod-exports)
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (mapc #'asdf:load-system '(:sod :sod-frontend)))
+  (asdf:clear-configuration)
+  (mapc #'asdf:load-system '(:sod :sod/frontend)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Miscelleneous utilities.
@@ -376,13 +373,17 @@
       (push :c-type-spec things))
     (when (specialized-on-p #'sod:expand-c-type-form 0 symbol)
       (push :c-type-form things))
+    (when (specialized-on-p #'sod:expand-c-storage-specifier 0 symbol)
+      (push :c-storage-spec things))
+    (when (specialized-on-p #'sod:expand-c-storage-specifier-form 0 symbol)
+      (push :c-storage-form things))
     (when (specialized-on-p #'sod-parser:expand-parser-spec 1 symbol)
       (push :parser-spec things))
     (when (specialized-on-p #'sod-parser:expand-parser-form 1 symbol)
       (push :parser-form things))
-    (when (get symbol 'optparse::opthandler)
+    (when (get symbol 'optparse::opthandler-function)
       (push :opthandler things))
-    (when (get symbol 'optparse::optmacro)
+    (when (get symbol 'optparse::optmacro-function)
       (push :optmacro things))
     (nreverse things)))
 
@@ -892,7 +893,7 @@
   (let* ((sod (asdf:find-system "sod"))
 	 (parser-files (files (by-name sod "parser")))
 	 (utilities (by-name sod "utilities"))
-	 (sod-frontend (asdf:find-system "sod-frontend"))
+	 (sod-frontend (asdf:find-system "sod/frontend"))
 	 (optparse (by-name sod "optparse"))
 	 (frontend (by-name sod-frontend "frontend"))
 	 (sod-files (set-difference (files sod) (list optparse utilities))))
@@ -908,13 +909,9 @@
 ;;; Command-line use.
 
 (defun main ()
-  "Write a report to `doc/SYMBOLS'."
-  (with-open-file (*standard-output* #p"doc/SYMBOLS"
-		   :direction :output
-		   :if-exists :supersede
-		   :if-does-not-exist :create)
-    (report-project-symbols)))
-
-#+interactive (main)
+  "Write a report to *standard-output*."
+  (report-project-symbols))
+
+#+runlisp-script (main)
 
 ;;;----- That's all, folks --------------------------------------------------