[no subject]

[ALAN at MIT-MC (Alan Bawden)]

fixnum-identity and flonum-identity should be understood by
setf.   Perhaps the correct behavior is:

(setf (fixnum-identity foo) bar) => (setf foo (fixnum-identity bar))