Attached is a patch to clean up the (EQ T (WRAPPER-STATE OWRAPPER))
nastiness spread throughout PCL. The rebuilt SBCL binary passes tests.
Nathan | http://www.rose-hulman.edu/~froydnj/ | Credo ut intelligam
From Man's effeminate slackness it begins. --Paradise Lost
From: William Harold Newman <william.newman@ai...> - 2002-05-18 22:14:58
On Thu, May 16, 2002 at 12:19:34PM -0400, Nathan Froyd wrote:
> Attached is a patch to clean up the (EQ T (WRAPPER-STATE OWRAPPER))
> nastiness spread throughout PCL. The rebuilt SBCL binary passes tests.
OK, thank you. I've merged this in 0.7.3.17.
> (defun check-wrapper-validity (instance)
> - (let* ((owrapper (wrapper-of instance))
> - (state (wrapper-state owrapper)))
> - (if (eq state t)
> + (let* ((owrapper (wrapper-of instance)))
> + (if (not (invalid-wrapper-p owrapper))
> (let ((nwrapper
> (ecase (car state)
I tweaked your code slightly so that STATE would still be defined
where it is used (for another purpose) here.
William Harold Newman <william.newman@...>
"We are playing a variant of the ancient game of 'Chicken,' a
game popular with adolescent males and great statesmen."
-- <http://www.daviddfriedman.com/laws_order/index.shtml>, ch. 8
PGP key fingerprint 85 CE 1C BA 79 8D 51 8C B9 25 FB EE E0 C3 E5 7C