www

commit 2905eaf456d6dfd16cd23635cdc3c8878ce5918b
parent 846d140d3fa40627243f00e1d11282067ca95c74
Author: Bertrand BRUN <bertrand.brun@me.com>
Date:   Mon,  8 Nov 2010 19:13:51 +0100

Merge branch 'master' of https://github.com/dumbs/2010-m1s1-compilation

Diffstat:
M
lisp2li.lisp
 | 
13
++++++-------
M
meval.lisp
 | 
5
+++--

2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp2li.lisp b/lisp2li.lisp
@@ -144,7 +144,7 @@ par le compilateur et par l’interpréteur"
                     ,(lisp2li (implicit-progn body) new-env)))))
    ;; defun
    ((eq 'defun (car expr))
-    `(:mcall set-defun (:const . ,(second expr))
+    `(:call set-defun (:const . ,(second expr))
                 ,(lisp2li `(lambda ,(third expr) ,@(cdddr expr)) env)))
    ;; apply
    ((eq 'apply (car expr))
@@ -227,11 +227,11 @@ par le compilateur et par l’interpréteur"
 
 (deftest (lisp2li defun)
   (lisp2li '(defun bar (x) x) ())
-  '(:mcall set-defun (:const . bar) (:lclosure 1 :cvar 0 1)))
+  '(:call set-defun (:const . bar) (:lclosure 1 :cvar 0 1)))
 
 (deftest (lisp2li defun)
   (lisp2li '(defun foo (x y z) (list x y z)) ())
-  '(:mcall set-defun (:const . foo)
+  '(:call set-defun (:const . foo)
            (:lclosure 3 :call list
                       (:cvar 0 1)
                       (:cvar 0 2)
@@ -239,11 +239,11 @@ par le compilateur et par l’interpréteur"
 
 (deftest (lisp2li setf)
   (lisp2li '(setf y 42) '((x 0 1) (y 0 2)))
-  '(:set-var (0 2) 42))
+  '(:set-var (0 2) (:const . 42)))
 
 (deftest (lisp2li setf)
   (lisp2li '(setf (cdr '(1 2 3)) 42) ())
-  '(:set-fun cdr 42 '(1 2 3)))
+  '(:set-fun cdr 42  '(1 2 3)))
 
 (deftest (lisp2li lambda)
   (lisp2li '(mapcar (lambda (x y z) (list x y z)) '(1 2 3)) ())
@@ -328,4 +328,4 @@ par le compilateur et par l’interpréteur"
   '(:if (:call not
                (:call eq (:call car (:const 1 2)) (:const . 1)))
         (:const . nil)
-        (:const . T)))
-\ No newline at end of file
+        (:const . T)))
diff --git a/meval.lisp b/meval.lisp
@@ -255,6 +255,7 @@ d’arguments dans un certain environnement."
 (deftestvar (meval :set-var) env #(() 2))
 (deftest (meval :set-var)
   (progn
-    (meval (lisp2li '(setf x 42) ()) env)
+    (meval (lisp2li '(setf x 42) '((x 0 1))) env)
     env)
-  #(() 42))
+  #(() 42)
+  #'equalp)