aboutsummaryrefslogtreecommitdiff
path: root/src/interp/profile.boot.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/profile.boot.pamphlet')
-rw-r--r--src/interp/profile.boot.pamphlet5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/profile.boot.pamphlet b/src/interp/profile.boot.pamphlet
index e3b83f66..f6d858d9 100644
--- a/src/interp/profile.boot.pamphlet
+++ b/src/interp/profile.boot.pamphlet
@@ -46,12 +46,15 @@
<<*>>=
<<license>>
+import '"macros"
+)package "BOOT"
+
--$profileCompiler := true
$profileAlist := nil
profileWrite() == --called from finalizeLisplib
outStream := MAKE_-OUTSTREAM CONCAT(LIBSTREAM_-DIRNAME $libFile,'"/info")
- _*PRINT_-PRETTY_* :local := 'T
+ SETQ(_*PRINT_-PRETTY_*, true)
PRINT_-FULL(profileTran $profileAlist,outStream)
SHUT outStream