aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/ChangeLog7
-rw-r--r--src/interp/Makefile.in2
-rw-r--r--src/interp/Makefile.pamphlet2
-rw-r--r--src/interp/i-output.boot.pamphlet2
4 files changed, 11 insertions, 2 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 4dff06ac..c8a0ef18 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,11 @@
2007-10-16 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ Fix SF/1814510
+ * i-output.boot.pamphlet (putWidth): Use GETL.
+ * Makefile.pamphlet (i-output.$(FASLEXT)): New rule.
+
+2007-10-16 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* Makefile.pamphlet (INOBJS): Lose xrun.$(FASLEXT).
* clammed.boot.pamphlet (coerceConvertMmSelection): Merge
modification in late xrun.boot.
@@ -25,7 +31,6 @@
2007-10-15 Gabriel Dos Reis <gdr@cs.tamu.edu>
-
* Makefile.pamphlet (<<server.clisp>>): Remove.
(server.$(FASLEXT)): New rule.
* as.boot.pamphlet (asytran): Use VMREAD.
diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index b63d4067..a1f1d24c 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -434,6 +434,8 @@ profile.$(FASLEXT): profile.boot macros.$(FASLEXT)
rulesets.$(FASLEXT): rulesets.boot vmlisp.$(FASLEXT)
$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
+i-output.$(FASLEXT): i-output.boot sys-macros.$(FASLEXT)
+ $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
format.$(FASLEXT): format.boot macros.$(FASLEXT)
$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet
index 679c8769..b1dfa937 100644
--- a/src/interp/Makefile.pamphlet
+++ b/src/interp/Makefile.pamphlet
@@ -1609,6 +1609,8 @@ profile.$(FASLEXT): profile.boot macros.$(FASLEXT)
rulesets.$(FASLEXT): rulesets.boot vmlisp.$(FASLEXT)
$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
+i-output.$(FASLEXT): i-output.boot sys-macros.$(FASLEXT)
+ $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
format.$(FASLEXT): format.boot macros.$(FASLEXT)
$(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $<
diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet
index c671ac53..b21fe469 100644
--- a/src/interp/i-output.boot.pamphlet
+++ b/src/interp/i-output.boot.pamphlet
@@ -943,7 +943,7 @@ putWidth u ==
0
newFirst:=
atom (oldFirst:= first u) =>
- fn:= GET(oldFirst,"WIDTH") =>
+ fn:= GETL(oldFirst,"WIDTH") =>
[oldFirst,:FUNCALL(fn,[oldFirst,:l])]
if l then ll := rest l else ll := nil
[oldFirst,:opWidth(oldFirst,ll)+argsWidth]