plop

lisp/mini-meval.lisp

@@ -283,9 +283,10 @@
   (error "mini-meval (outer) : ~w~&expression = ~w~&etat-global = ~w~&etat-local = ~w~&etat-special = ~w"
          (apply #'format nil message)
          expr
-         (etat-global etat)
+         nil nil nil))
-         (etat-local etat)
+;         (etat-global etat)
-         (etat-special etat)))
+;         (etat-local etat)
+;         (etat-special etat)))
 
 (defun transform-quasiquote (expr)
   (cond

lisp/t.lisp

@@ -5,4 +5,63 @@
 (setq tmm (my-read (open "tmm.lisp")))
 
 (defvar e-tmm nil)
-(setq e-tmm (make-etat list + - cons car cdr < > <= >= = make-symbol))
+;(setq e-tmm (make-etat list + - cons car cdr < > <= >= = make-symbol))
+
+(setf e-tmm (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
+		   funcall
+		   assoc
+		   mload
+		   mini-meval
+           make-symbol
+))