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)
|
