[Gcl-commits] gcl/cmpnew gcl_cmpflet.lsp gcl_cmplet.lsp

[Camm Maguire]

CVSROOT:        /cvsroot/gcl
Module name:    gcl
Changes by:     Camm Maguire <camm>     06/06/05 22:21:08

Modified files:
        cmpnew         : gcl_cmpflet.lsp gcl_cmplet.lsp 

Log message:
        auto-recompilation support

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gcl/cmpnew/gcl_cmpflet.lsp?cvsroot=gcl&r1=1.13&r2=1.14
http://cvs.savannah.gnu.org/viewcvs/gcl/cmpnew/gcl_cmplet.lsp?cvsroot=gcl&r1=1.25&r2=1.26

Patches:
Index: gcl_cmpflet.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmpflet.lsp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- gcl_cmpflet.lsp     31 Mar 2006 21:59:38 -0000      1.13
+++ gcl_cmpflet.lsp     5 Jun 2006 22:21:08 -0000       1.14
@@ -354,7 +354,7 @@
     (cmpck (or (endp def) (not (symbolp (car def))) (endp (cdr def)))
            "The macro definition ~s is illegal." def)
     (push (list (car def)
-                (caddr (si:defmacro* (car def) (cadr def) (cddr def))))
+                (si::interpreted-function-lambda (caddr (si:defmacro* (car 
def) (cadr def) (cddr def)))))
           *funs*))
   (multiple-value-setq (body ss ts is other-decl) (c1body (cdr args) t))
   (c1add-globals ss)

Index: gcl_cmplet.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/cmpnew/gcl_cmplet.lsp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- gcl_cmplet.lsp      5 Jun 2006 22:02:45 -0000       1.25
+++ gcl_cmplet.lsp      5 Jun 2006 22:21:08 -0000       1.26
@@ -33,7 +33,7 @@
 (defun push-macrolets (form)
   (dolist** (def form)
            (push (list (car def)
-                       (caddr (si:defmacro* (car def) (cadr def) (cddr def))))
+                       (si::interpreted-function-lambda (caddr (si:defmacro* 
(car def) (cadr def) (cddr def)))))
                  *funs*)))
 
 (defun cmp-macroexp-with-compiler-macros (form)