diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-15 18:09:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-15 18:09:50 +0000 |
| commit | 91fd7baaf6d987505fe5f78cb6976cc6c42bb22c (patch) | |
| tree | c11702bf345188ff95eb39b4a0e7e222c047fa6a | |
| parent | f05e773f803aaaec6f229fe28a826f13159796e3 (diff) | |
| download | open-axiom-91fd7baaf6d987505fe5f78cb6976cc6c42bb22c.tar.gz | |
Fix Bug SF/1790563
* i-output.boot.pamphlet (outputDomainConstructor): Devaluate
domain form only if it is in vector representation.
| -rw-r--r-- | src/interp/ChangeLog | 18 | ||||
| -rw-r--r-- | src/interp/i-output.boot.pamphlet | 2 |
2 files changed, 19 insertions, 1 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 0db3fab3..e72fe303 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,9 @@ +2007-09-15 Gabriel Dos Reis <gdr@cs.tamu.edu> + + Fix Bug SF/1790563 + * i-output.boot.pamphlet (outputDomainConstructor): Devaluate + domain form only if it is in vector representation. + 2007-09-14 Gabriel Dos Reis <gdr@cs.tamu.edu> * sys-globals.boot ($insideCoerceInteracticve): Define. @@ -182,6 +188,18 @@ 2007-09-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * macros.lisp.pamphlet (CROAK): Move to diagnostics.boot. + (SAY): Likewise. + (MESSAGEPRINT): Likewise. + (MESSAGEPRINT-1): Likewise. + (MESSAGEPRINT-2): Likewise. + (|shoeConsole|): Move to sys-macros.lisp. + (|shoeInputFile|): Likewise. + (|shoeread-line|): Likewise. + (ELEMN): Move to fnewmeta.lisp.pamphlet. + +2007-09-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * Makefile.pamphlet (DEP): Adjust path to comp.lisp. (${DEPSYS}): Likewise for def.lisp, bootlex.lisp, postprop.lisp, metalex.lisp. Use |compileLispFile| instead of COMPILE-FILE. diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet index f711ea18..f28b0af0 100644 --- a/src/interp/i-output.boot.pamphlet +++ b/src/interp/i-output.boot.pamphlet @@ -1468,7 +1468,7 @@ outputString(start,linelength,str) == sayALGEBRA [blnks, str] outputDomainConstructor form == - if VECTORP CAR form then form := devaluate form + if VECTORP form then form := devaluate form atom (u:= prefix2String form) => u v:= [object2String(x) for x in u] return INTERNL eval ['STRCONC,:v] |