|
[Sbcl-commits] CVS: sbcl/src/compiler target-main.lisp,1.13,1.14
From: Christophe Rhodes <crhodes@us...> - 2002-10-27 16:03
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory usw-pr-cvs1:/tmp/cvs-serv30322/src/compiler Modified Files: target-main.lisp Log Message: 0.7.9.7: Move build-id.tmp-making logic to make-config.sh, to facilitate cross-compilation Add a comment regarding *policy* rebinding. Index: target-main.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/target-main.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- target-main.lisp 27 Oct 2002 14:52:49 -0000 1.13 +++ target-main.lisp 27 Oct 2002 16:02:59 -0000 1.14 @@ -61,6 +61,14 @@ (*last-format-args* nil) (*last-message-count* 0) (*gensym-counter* 0) + ;; KLUDGE: This rebinding of policy is necessary so that + ;; forms such as LOCALLY at the REPL actually extend the + ;; compilation policy correctly. However, there is an + ;; invariant that is potentially violated: future + ;; refactoring must not allow this to be done in the file + ;; compiler. At the moment we're clearly alright, as we + ;; call %COMPILE with a core-object, not a fasl-stream, + ;; but caveat future maintainers. -- CSR, 2002-10-27 (*policy* (lexenv-policy *lexenv*)) ;; FIXME: ANSI doesn't say anything about CL:COMPILE ;; interacting with these variables, so we shouldn't. As |
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/compiler target-main.lisp,1.13,1.14 | Christophe Rhodes <crhodes@us...> |