meval-op.lisp (808B)
1 (setf meval-op (make-etat 2 car 3 caaaar 4 caaadr 5 caadar 6 caaddr 7 cadaar 8 cadadr 9 caddar 10 cadddr 11 cdaaar 12 cdaadr 13 cdadar 14 cdaddr 15 cddaar 16 cddadr 17 cdddar 18 cddddr 19 caaar 20 caadr 21 cadar 22 caddr 23 cdaar 24 cdadr 25 cddar 26 cdddr 27 caar 28 cadr 29 cdar 30 cddr 31 first 32 second 33 third 34 fourth 35 fifth 36 sixth 37 seventh 38 eighth 39 ninth 40 tenth 41 tree-equal 42 char 43 schar 44 string 45 string= 46 make-string 47 equal 48 eql 49 eq 50 cdr 51 cons 52 list 53 oddp 54 symbolp 55 numberp 56 stringp 57 equalp 58 + 59 - 60 * 61 / 62 = 63 < 64 > 65 <= 66 >= 67 read 68 error 69 funcall 70 assoc 71 mload 72 mini-meval 73 ))