[no subject]

[Robert W. Kerns <RWK at MIT-MC>]

    Date: 18 September 1980 04:10-EDT
    From: Alan Bawden <ALAN at MIT-MC>
    To:   BUG-LISP

    While we are fixing bugs in SETF why not add the setf-x properties for
    fixnum and flonum-identity?

    And while you are at it you might also want to do PROGN:

    (setf (progn x) 12) = (setf x 12)
    --------
PROGN now works, although non-optimally.
(SETF (progn (foo) (bar) (car (baz))) 'val) ==>

((LAMBDA (G0001 G0002 G0003 G0004)
   (PROGN G0001 G0002 (RPLACA G0003 G0004))
   G0004)
 (FOO) (BAR) (BAZ) 'VAL)

which produces 3 PUSHes and a combined POP.  Tough shit.
The case of a 1-argument PROGN is not hurt.

FIXNUM-IDENTITY and FLONUM-IDENTITY are treated the
same as PROGN, with FLONUM- or FIXNUM-IDENTITY taking the
place of the PROGN above.  Is it going to be a screw that
the FIXNUM-IDENTITY guys are not moved outside the LAMBDAs?
It's not easy to change.