From 91fd7baaf6d987505fe5f78cb6976cc6c42bb22c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 15 Sep 2007 18:09:50 +0000 Subject: Fix Bug SF/1790563 * i-output.boot.pamphlet (outputDomainConstructor): Devaluate domain form only if it is in vector representation. --- src/interp/ChangeLog | 18 ++++++++++++++++++ src/interp/i-output.boot.pamphlet | 2 +- 2 files changed, 19 insertions(+), 1 deletion(-) (limited to 'src') 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 + + 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 * sys-globals.boot ($insideCoerceInteracticve): Define. @@ -180,6 +186,18 @@ (|leftBindingPowerOf|): Move to i-output.boot.pamphlet. (|rightBindingPowerOf|): Likewise. +2007-09-09 Gabriel Dos Reis + + * 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 * Makefile.pamphlet (DEP): Adjust path to comp.lisp. 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] -- cgit v1.2.3