[Bug-openmcl] slot-missing throws exception (fwd)

[Gary Byers]

I may have accidentally rejected Bryan's follow-up message:

---------- Forwarded message ----------
Date: Tue, 6 Jan 2004 20:05:56 -0800
From: bryan o'connor <bryan-openmcl at lunch.org>
To: Gary Byers <gb at clozure.com>
Cc: bug-openmcl at clozure.com
Subject: Re: [Bug-openmcl] slot-missing throws exception

> It's fixed in CVS (in both 0.14 & 0.14-dev).

thanks for the quick fix!  one minor typo, though,
that broke (setf (slot-value ...)) with a missing slot.

				...bryan


diff -c -2 -r1.2 ppc-clos.lisp
*** ppc-clos.lisp       7 Jan 2004 03:17:22 -0000       1.2
--- ppc-clos.lisp       7 Jan 2004 04:05:19 -0000
***************
*** 141,145 ****
     (bctr)
     @missing                              ; (%slot-id-set-missing
instance id new-value)
!   (lwz nfn '%slot-id-set-missing fname)
     (set-nargs 3)
     (lwz temp0 ppc32::misc-data-offset nfn)
--- 141,145 ----
     (bctr)
     @missing                              ; (%slot-id-set-missing
instance id new-value)
!   (lwz nfn '%slot-id-set-missing nfn)
     (set-nargs 3)
     (lwz temp0 ppc32::misc-data-offset nfn)