about summary refs log blame commit diff stats
path: root/comal.lsp
blob: de603adc33ca1b32daee9ef43f81808c5713c086 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16















                                                                                             
;; Does it make more sense to write everything in Lisp rather than a split Lisp/COMAL design?

(defun one-command-h (c)
   (case (car c)
         ((line) (insert (cadr c)))
         ((p-end) (signal-condition (create (class <simple-error>))))))

(defun main-loop (program env)
   

(defun main-h ()
   (format (standard-output) "OpenCOMAL version 0.4~%~%")
   (main-loop nil nil))

(defun bye ()
   (format (standard-output) "See you later...~%"))