From 6e7cdcd4280f5330229ec9c943b9caf090846452 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@gmail.com>
Date: Wed, 18 Nov 2020 23:59:17 +0000
Subject: Checkpointing from my Mac

---
 basic.lsp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'basic.lsp')

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")
-- 
cgit 1.4.1-2-gfad0