blob: de603adc33ca1b32daee9ef43f81808c5713c086 (
plain) (
blame)
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...~%"))
|