suckage

[Alan Bawden <ALAN at MIT-MC>]

I have been working on some new features for defstruct and I compiled
a version that should have run in MacLisp.  I asked DLW and Moon to
try it out (in MacLisp) confident that it would work in anybody's
SETF.  I was wrong of course:

    Date: 28 November 1980 01:56-EST
    From: Daniel L. Weinreb <dlw at MIT-AI>
    Sender: dlw at CADR6 at MIT-AI

    OK, I tried it, and found that *DPB was an undefined function.  I will
    try this again when you give me a version that runs on the LispM; I'm
    sorry, but I cannot deal with Maclisp; it's just too hard.

Now I don't use *DPB, so it must be something that your SETF produces.
So I tried:

In the current LISP:

(setq x 123456)
123456 
(setf (ldb 0303 x) 7)
;Loading SETF 271 
;Loading DEFMAX 63 
;Loading LODBYT 38 
;Loading LDBHLP 1 
;Loading MACAID 97 
;*:XREF UNDEFINED FUNCTION IN UUO CALL

;BKPT UNDF-FNCTN

In the current XLISP:

(setq x 123456)
123456 
(setf (ldb 0303 x) 7)
;Loading SETF 271 
;Loading DEFMAX 63 
;Loading MACAID 97 
;(LDB 303 X) Obscure format - SETF

;BKPT WRNG-TYPE-ARG

I have no idea how DLW got the *DPB bug, but I am not surprised that
the code that defstruct constructs causes a different set of bugs
since it probably causes yet another set of packages to autoload.

Sure makes me glad I have my own macrology!