74 lines
808 B
Common Lisp
74 lines
808 B
Common Lisp
(setf meval-op (make-etat
|
|
car
|
|
caaaar
|
|
caaadr
|
|
caadar
|
|
caaddr
|
|
cadaar
|
|
cadadr
|
|
caddar
|
|
cadddr
|
|
cdaaar
|
|
cdaadr
|
|
cdadar
|
|
cdaddr
|
|
cddaar
|
|
cddadr
|
|
cdddar
|
|
cddddr
|
|
caaar
|
|
caadr
|
|
cadar
|
|
caddr
|
|
cdaar
|
|
cdadr
|
|
cddar
|
|
cdddr
|
|
caar
|
|
cadr
|
|
cdar
|
|
cddr
|
|
first
|
|
second
|
|
third
|
|
fourth
|
|
fifth
|
|
sixth
|
|
seventh
|
|
eighth
|
|
ninth
|
|
tenth
|
|
tree-equal
|
|
char
|
|
schar
|
|
string
|
|
string=
|
|
make-string
|
|
equal
|
|
eql
|
|
eq
|
|
cdr
|
|
cons
|
|
list
|
|
oddp
|
|
symbolp
|
|
numberp
|
|
stringp
|
|
equalp
|
|
+
|
|
-
|
|
*
|
|
/
|
|
=
|
|
<
|
|
>
|
|
<=
|
|
>=
|
|
read
|
|
error
|
|
funcall
|
|
assoc
|
|
mload
|
|
mini-meval
|
|
))
|