literal constants are not!

[Sam S. <sd...@gn...>]

constant objects in constobj.d are user-modifiable!

(setq z (nth-value 1 (ignore-errors (make-array 12345678901234567890))))
#<SIMPLE-TYPE-ERROR #x1B87FAA9>

(type-error-datum z)
12345678901234567890

(type-error-expected-type z)
(INTEGER 0 (16777216))

(setf (car (type-error-expected-type z)) 'zot!)
ZOT!

(type-error-expected-type z)
(ZOT! 0 (16777216))

(setq z (nth-value 1 (ignore-errors (make-array 1234567890123456789012345678901234567890))))
#<SIMPLE-TYPE-ERROR #x1B88A875>

(type-error-expected-type z)
(ZOT! 0 (16777216))

OUCH!

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
Daddy, what does "format disk c: complete" mean?