Re: [Gcl-devel] XP - ansi pprint

[Peter Wood]

Hi again,

On Tue, Aug 27, 2002 at 02:57:58PM +0200, Peter Wood wrote:
> Hi
> 
> On Mon, Aug 26, 2002 at 11:47:50PM -0400, Camm Maguire wrote:
 ...
> > 2) I cannot seem to compile xpx-code.lisp, as one of the format
> >    strings cannot be coerced to the designated destination type.
> > 
> 
> I get this error:
> 
> Error in CONDITIONS::CLCS-LOAD [or a callee]: "~:<address@hidden, ~_~}~:>" 
> cannot be coerced to a pathname.
> 
> And at a _guess_, I would say it might have something to do with Gcl's
> pathname system.??
> 

Sorry - the problem can be solved by installing XP like this:

(xp::install :macro t)

which apparently installs #"..." as shorthand for a full (format s
"etc" args)

Gcl presently assumes #"..." means a pathname, which is why this error
arises.

After doing (xp::install :macro t) you can load "xpx-code.lisp" and
"xpx-test.lisp".  I get the following results from (do-tests) after
loading xpx-code.lisp:


Starts dribbling to xpx-test.txt (2002/8/27, 7:32:57).
NIL

>
(do-tests)
Doing 63 pending tests of 63 tests total.
 EXP1 EXP2 EXP3 EXP3.1 EXP3.2 EXP4 EXP5
Test EXP6 failed
Form: (TEST-PRINT
          (OR (AND (< 2 3) (>= (FOB-LIMIT 3 3.1000000000000001) 4))
              (= (+ 2 2) (* 3 1.0))))
Expected value: "(2 < 3) and (FobLimit(3, 3.1) >= 4) or (2+2 = 3*1.0)"
Actual value: "(2 < 3) and (FobLimit(3, 3.1000000000000001) >= 4) or (2+2 = 
3*1.0)".
 EXP7 EXP7.1 EXP9 EXP10 EXP10.1
Test EXP11 failed
Form: (TEST-PRINT
          (SETQ BIG-VAR
                (+ (* LAST-VALUE 236.19999999999999) ANOTHER-VAR)))
Expected value: "BigVar := LastValue*236.2+AnotherVar"
Actual value: "BigVar := LastValue*236.19999999999999+AnotherVar".
Test EXP11.1 failed
Form: (TEST-PRINT
          (SETQ BIG-VAR
                (+ (* LAST-VALUE 236.19999999999999) ANOTHER-VAR))
          (*PRINT-RIGHT-MARGIN* 20))
Expected value: "BigVar :=
 LastValue*236.2
 +AnotherVar"
Actual value: "BigVar :=
 LastValue
 *236.19999999999999
 +AnotherVar".
Test EXP11.2 failed
Form: (TEST-PRINT
          (SETQ BIG-VAR
                (+ (* LAST-VALUE 236.19999999999999) ANOTHER-VAR))
          (*PRINT-RIGHT-MARGIN* 15))
Expected value: "BigVar :=
 LastValue
 *236.2
 +AnotherVar"
Actual value: "BigVar :=
 LastValue
 *236.19999999999999
 +AnotherVar".
 STATE1 STATE1.1 STATE2 STATE2.1 STATE2.2 STATE2.3 STATE2.4 STATE2.5
 STATE2.6 STATE2.7 STATE2.8 STATE3 STATE3.1 STATE3.2 STATE3.3 STATE4
 STATE4.1 STATE4.2 STATE4.3 STATE4.4 STATE4.5 BIG BIG2 RATIONAL PAPER1
 PAPER1.1 PAPER2 PAPER3 PAPER4 PAPER5 PAPER6 PAPER7 PAPER8 PAPER9
 PAPER10 PAPER10.1 PAPER10.2 PAPER11 PAPER12 PAPER13 PAPER14 PAPER14.1
 PAPER15 PAPER16 PAPER17 PAPER18 PAPER18.1
4 out of 63 total tests failed: EXP6, EXP11, EXP11.1, EXP11.2.
NIL

>
(dribble)

Regards,
Peter