Re: [clisp-list] (get-setf-expansion ''z)?

[Raymond T. <to...@rt...>]

>>>>> "Sam" == Sam Steingold <sd...@gn...> writes:

    >> * In message <4nr...@ed...>
    >> * On the subject of "Re: [clisp-list] (get-setf-expansion ''z)?"
    >> * Sent on 23 Jul 2002 12:08:33 -0400
    >> * Honorable Raymond Toy <to...@rt...> writes:
    >> 
    >> >>>>> "Sam" == Sam Steingold <sd...@gn...> writes:
    >> 
    Sam> calling GET-SETF-EXPANSION on the last arg to SHIFTF does not make
    Sam> sense. think of (shiftf a b c 10)
    >> 
    >> Then what are you supposed to do for 
    >> (shiftf (values a b) (values (cdr x) (car y)) (values 'foo (bar)))

    Sam> nope. :-)

After more thought, I understand much better now and agree with you.
I don't have to call g-s-e at all for the last thing because it's not
a place.

Thank you!!!!!

    Sam> I finally guessed why you cannot look at the CLISP sources: licensing.
    Sam> (CMUCL is PD, CLISP is GNU GPL, so we can borrow CMUCL code while CMUCL
    Sam> cannot. :-)

Yep.  But we can, with permission, which Bruno did give for the
rationalize function.  But I did cheat a little and looked at the
code, but didn't understand it because it uses some Clisp-specific
things (I think).

In any case, the code is totally different---I basically copied the
code from CMUCL's rotatef macro and modified it for shiftf.

Ray