[ThinLisp-commits] CVS: thinlisp-1.0/src/tlt/lisp l-trans.lisp,1.20,1.21

[Jim A. <ja...@us...>]

Update of /cvsroot/thinlisp/thinlisp-1.0/src/tlt/lisp
In directory sc8-pr-cvs1:/tmp/cvs-serv30019

Modified Files:
	l-trans.lisp 
Log Message:
Add comment about how to handle lexical closures.


Index: l-trans.lisp
===================================================================
RCS file: /cvsroot/thinlisp/thinlisp-1.0/src/tlt/lisp/l-trans.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** l-trans.lisp	19 Aug 2001 16:07:05 -0000	1.20
--- l-trans.lisp	10 Feb 2003 17:39:46 -0000	1.21
***************
*** 1770,1774 ****
  	"=" (translate-l-expr-into-c
  	      (prepare-l-expr-for-translation 
! 		(make-quoted-constant-l-expr nil env env) 't 'obj)
  	      top-c-func top-c-body :c-expr))
        top-c-body)
--- 1770,1776 ----
  	"=" (translate-l-expr-into-c
  	      (prepare-l-expr-for-translation 
! 	       ;; Add reference to closure object here.  -jallard 3/24/02
! 		(make-quoted-constant-l-expr nil env env)
! 		't 'obj)
  	      top-c-func top-c-body :c-expr))
        top-c-body)