aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-15 18:09:50 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-15 18:09:50 +0000
commit91fd7baaf6d987505fe5f78cb6976cc6c42bb22c (patch)
treec11702bf345188ff95eb39b4a0e7e222c047fa6a /src
parentf05e773f803aaaec6f229fe28a826f13159796e3 (diff)
downloadopen-axiom-91fd7baaf6d987505fe5f78cb6976cc6c42bb22c.tar.gz
Fix Bug SF/1790563
* i-output.boot.pamphlet (outputDomainConstructor): Devaluate domain form only if it is in vector representation.
Diffstat (limited to 'src')
-rw-r--r--src/interp/ChangeLog18
-rw-r--r--src/interp/i-output.boot.pamphlet2
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]