Re: Misc. questions and bugs

From: Ben L. Di Vito <bld_at_air57.larc.nasa.gov>
Date: Fri, 4 Jun 1999 13:36:16 -0400 (EDT)

> Date: Fri, 04 Jun 1999 05:19:21 -1000 (HST)
> From: Shiro Kawai <shiro_at_squareusa.com>
>
> just one point...
>
> From: "Ben L. Di Vito" <bld_at_air57.larc.nasa.gov>
> Subject: Misc. questions and bugs
> Date: Fri, 4 Jun 1999 09:37:01 -0400 (EDT)
>
> > - The use of generic procedures to implement recognizer predicates for
> > STklos objects didn't work for me. Consider:
> >
> > (define-class obj () ((comp1 :initform 0)))
> > (define-method obj? (x <obj>) #t)
>
> I assume you meant `obj' instead of `<obj>' in the define-method form.

Thanks for catching that. Yes, this one appears to be my mistake. I
was imitating examples in the manual and failed to match up class names.

> Still you need to say
>
> (define-method obj? ((x obj)) #t)
>
> And it works on my machine.
>

It looks like there's a small error in the STklos appendix then. I'll
have to go back and read through that section more carefully. The
example I was cloning was:

  (define-method complex? (c <complex>) #t)

which I gather should be:

  (define-method complex? ((c <complex>)) #t)

> Shiro KAWAI
> Square USA Inc. Honolulu Studio R&D division
> #"The most important things are the hardest things to say" --- Stephen King
>

Thanks for your clarification.

Ben
Received on Fri Jun 04 1999 - 19:30:56 CEST