doc/syntax.tex, src/sod-module.5: Typeset `<qualifier>s' properly.

[sod] / src / final.lisp

diff --git a/src/final.lisp b/src/final.lisp
index 12b6294d19973530c5d49286cac289f1f80d9cc8..7d4468e68b2a61454ace5950820bc901ddafaf2b 100644 (file)
--- a/src/final.lisp
+++ b/src/final.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;

-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.

 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by


@@ -25,6 +25,13 @@
 
 (cl:in-package #:sod)
 
 
 (cl:in-package #:sod)
 

+;;;--------------------------------------------------------------------------
+;;; Miscellaneous details.
+
+(export '*sod-version*)
+(defparameter *sod-version* sod-sysdef:*version*
+  "The version of the SOD translator system, as a string.")
+

 ;;;--------------------------------------------------------------------------
 ;;; Debugging utilities.
 
 ;;;--------------------------------------------------------------------------
 ;;; Debugging utilities.
 


@@ -35,7 +42,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*