www

commit 10ef5de892c4339250af315d9242d8f899e7a457
parent 3d5d00f8d9cd76a7dfd437dc29da17674e63e4a7
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Sun, 28 Nov 2010 21:03:37 +0100

Rename lisp2cli.lisp -> squash-lisp.lisp, part 2.

Diffstat:
M
implementation/squash-lisp.lisp
 | 
21
++++++++++-----------

1 file changed, 10 insertions(+), 11 deletions(-)
diff --git 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