[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
DEFVSX, |defvst-contructor/||
- To: (BUG LISP) at MIT-MC
- Subject: DEFVSX, |defvst-contructor/||
- From: RWK at MIT-MC (Robert W. Kerns)
- Date: Sun, 7 Dec 80 04:54:00 GMT
- Original-date: 6 DEC 1980 2354-EST
`(LET ((CURRENT-CONSTRUCTION (*:MAKE-EXTEND
(1+ ,totsize)
,(symbolconc sname '-CLASS))))
,. (nreconc bl (nreconc nol '(CURRENT-CONSTRUCTION)))) ))
isn't that (1+ ,totsize) supposed to just be totsize now that the random
extra slot isn't there any more?