doc/sod.sty: Hack underscores in the labels generated by `describe'.

[sod] / src / final.lisp

diff --git a/src/final.lisp b/src/final.lisp
index 12b6294d19973530c5d49286cac289f1f80d9cc8..5df72f187f36b16ba25759fb8bc6faa4ceb27d35 100644 (file)
--- a/src/final.lisp
+++ b/src/final.lisp
@@ -35,7 +35,6 @@ (export 'test-module)
 (defun test-module (path reason)
   "Reset the translator's state, read a module from PATH and output it with
    REASON, returning the result as a string."
 (defun test-module (path reason)
   "Reset the translator's state, read a module from PATH and output it with
    REASON, returning the result as a string."

-  (unless *builtin-module* (make-builtin-module))

   (clear-the-decks)
   (setf *module-map* (make-hash-table :test #'equal))
   (with-open-file (out *debugout-pathname*
   (clear-the-decks)
   (setf *module-map* (make-hash-table :test #'equal))
   (with-open-file (out *debugout-pathname*