diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-17 01:22:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-17 01:22:52 +0000 |
| commit | ce09059aa3e8028ef11f5e9573bcc6fac593ef5e (patch) | |
| tree | 8862a49a44adc9b1ec3d6542071cd4db0cee6af5 /src/interp | |
| parent | 004d25ab39f6f6867eb767bc7ba9b3fcce4e47a8 (diff) | |
| download | open-axiom-ce09059aa3e8028ef11f5e9573bcc6fac593ef5e.tar.gz | |
Fix SF/1814510
* i-output.boot.pamphlet (putWidth): Use GETL.
* Makefile.pamphlet (i-output.$(FASLEXT)): New rule.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/Makefile.in | 2 | ||||
| -rw-r--r-- | src/interp/Makefile.pamphlet | 2 | ||||
| -rw-r--r-- | src/interp/i-output.boot.pamphlet | 2 |
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] |