9 lines
206 B
Common Lisp
9 lines
206 B
Common Lisp
(load "../bootstrap/1.2.7-read.lisp")
|
|
(load "mini-meval")
|
|
|
|
(defvar tmm nil)
|
|
(setq tmm (my-read (open "tmm.lisp")))
|
|
|
|
(defvar e-tmm nil)
|
|
(setq e-tmm (make-etat list + - cons car cdr < > <= >= = make-symbol))
|