src/classes.lisp, src/class-layout-proto.lisp: Docstring fixes.

[sod] / src / frontend.lisp

diff --git a/src/frontend.lisp b/src/frontend.lisp
index 54302856d357a68ce1fe323105d31a8db3fd757c..9ed6f3084acb1396568e6986e1817d6d87b3473b 100644 (file)
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -23,7 +23,11 @@
 ;;; along with SOD; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 ;;; along with SOD; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 

-(cl:in-package #:sod)
+(cl:defpackage #:sod-frontend
+  (:use #:common-lisp #:optparse #:sod #:sod-parser)
+  (:shadowing-import-from #:optparse "INT"))
+
+(cl:in-package #:sod-frontend)

 
 ;;;--------------------------------------------------------------------------
 ;;; The main program.
 
 ;;;--------------------------------------------------------------------------
 ;;; The main program.


@@ -76,8 +80,8 @@ (defun main ()
 
     ;; Option definitions.
     (define-program
 
     ;; Option definitions.
     (define-program

-      :help "Probably ought to write this."
-      :version "0.1.0"
+      :help "Process SOD input files to produce (e.g.) C output."
+      :version *sod-version*

       :usage "SOURCES..."
       :options (options
                (help-options :short-version #\V)
       :usage "SOURCES..."
       :options (options
                (help-options :short-version #\V)