[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: ALAN at MIT-MC
- From: Robert W. Kerns <RWK at MIT-MC>
- Date: Thu, 18 Sep 80 10:43:00 GMT
- Cc: BUG-LISP at MIT-MC, GSB at MIT-MC
- Original-date: 18 September 1980 06:43-EDT
Date: 18 September 1980 04:10-EDT
From: Alan Bawden <ALAN at MIT-MC>
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))
(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.