mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

In cmpmain.lsp, t3local-fun is now a private symbol.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-29 16:49:43 +01:00
parent c663a87d2a
commit 3fcfaef8cf
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/new-cmp/cmpmain.lsp
View file

@ -783,13 +783,13 @@ from the C language code. NIL means \"do not create the file\"."
(*compiler-output2* (if h-file
(open h-file :direction :output :external-format :default)
null-stream))
(t3local-fun (symbol-function 'T3LOCAL-FUN))
(t3local-fun (symbol-function 'c-backend::t3local-fun))
(compiler-conditions nil)
(init-name (compute-init-name "foo" :kind :fasl)))
(with-compiler-env (compiler-conditions)
(unwind-protect
(progn
(setf (symbol-function 'T3LOCAL-FUN)
(setf (symbol-function 'c-backend::t3local-fun)
#'(lambda (&rest args)
(let ((*compiler-output1* *standard-output*))
(apply t3local-fun args))))
@ -800,7 +800,7 @@ from the C language code. NIL means \"do not create the file\"."
(if h-file h-file "")
(if data-file data-file ""))
(c-backend::data-dump data-file))
(setf (symbol-function 'T3LOCAL-FUN) t3local-fun)
(setf (symbol-function 'c-backend::t3local-fun) t3local-fun)
(when h-file (close *compiler-output2*)))))
nil)