From 10ef5de892c4339250af315d9242d8f899e7a457 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Sun, 28 Nov 2010 21:03:37 +0100 Subject: [PATCH] Rename lisp2cli.lisp -> squash-lisp.lisp, part 2. --- implementation/squash-lisp.lisp | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/implementation/squash-lisp.lisp b/implementation/squash-lisp.lisp index b5e3ef6..1adda3e 100644 --- a/implementation/squash-lisp.lisp +++ b/implementation/squash-lisp.lisp @@ -1,16 +1,15 @@ ;; lisp2li simpliste pour le compilateur. On fusionnera les deux plus tard. -(defmatch lisp2cli) +(defmatch squash-lisp) -(defmatch lisp2cli (:num . (? numberp)) `(:const . ,num)) -(defmatch lisp2cli (:str . (? stringp)) `(:const . ,str)) -(defmatch lisp2cli (quote :val _) `(:const . ,val)) -(defmatch lisp2cli () `(:const . nil)) -(defmatch lisp2cli (let ((:name $ :value _)*) :body _*) +(defmatch squash-lisp (:num . (? numberp)) `(:const . ,num)) +(defmatch squash-lisp (:str . (? stringp)) `(:const . ,str)) +(defmatch squash-lisp (quote :val _) `(:const . ,val)) +(defmatch squash-lisp () `(:const . nil)) +(defmatch squash-lisp (let ((:name $ :value _)*) :body _*) `(:let ,name ,value ,body)) -(defmatch lisp2cli (:name _ :params _*) `(:call ,name ,@(mapcar #'lisp2cli params))) -(defmatch lisp2cli (:x . _) (error "Lisp2cli ne sait pas gérer : ~w" x)) - +(defmatch squash-lisp (:name _ :params _*) `(:call ,name ,@(mapcar #'squash-lisp params))) +(defmatch squash-lisp (:x . _) (error "Squash-Lisp ne sait pas gérer : ~w" x)) #| @@ -373,4 +372,4 @@ Est transformé en : |# -(provide 'lisp2cli) \ No newline at end of file +(provide 'squash-lisp) \ No newline at end of file