Checkpointing from my Mac

1 files changed, 13 insertions, 2 deletions

diff --git a/basic.lsp b/basic.lsp
index 571d4a6..7f13acd 100644
--- a/basic.lsp
+++ b/basic.lsp
@@ -1,9 +1,19 @@
-#!/home/snuc/openlisp-10.9.0/uxlisp -shell
+#!/Users/dbane/openlisp-11.0.0/uxlisp -shell
+
+(require "abs-syn")
+(require "lex")
+(require "parse")
+(defpackage #:basic
+  (:use #:openlisp)
+  (:export
+   #:main))
+(in-package #:basic)
 
 ;;; Not sure yet if it's a good idea or not,
 ;;; but I'm trying to keep the number of top-level functions the same as in OCaml.
 
 (defun one-command (st)
+   (format (standard-output) "> ")
    (with-handler #'error-handler
       (let ((l parse (read-line)))
            (case (car l)
@@ -18,9 +28,10 @@
 
 (defun main ()
    (catch 'end (lambda ()
-                  (format (standard-output) "OpenCOMAL version 0.4~%~%")
+                  (format (standard-output) "BASIC version 0.1~%~%")
                   (for ((st (create (class <state>))))
                        (())
                        (format (standard-output) "> ")
                        (catch 'error (one-command st)))))
    (format (standard-output) "See you later...~%"))
+(provide "basic")