aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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]