From d68756e535594baf6114cb75526891b0be173419 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 7 Oct 2008 11:46:47 +0000 Subject: [PATCH] 1.0.21.11: record bug 431 * Random pick from my sbcl-devel backlog. --- BUGS | 24 ++++++++++++++++++++++++ version.lisp-expr | 2 +- 2 files changed, 25 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index e36c391..d1b1169 100644 --- a/BUGS +++ b/BUGS @@ -1918,3 +1918,27 @@ generally try to check returns in safe code, so we should here too.) HANDLE-NESTED-DYNAMIC-EXTENT-LVARS sees is not %MAKE-STRUCTURE-INSTANCE, but no-yet-eliminated (VARARGS-ENTRY MAKE-FOO). + +431: alien strucure redefinition doesn't work as expected + + (define-alien-type nil (struct mystruct (myshort short) (mychar char))) + + (with-alien ((myst (struct mystruct))) + (with-alien ((mysh short (slot myst 'myshort))) + (integerp mysh))) + + (define-alien-type nil (struct mystruct (myint int) (mychar char))) + + (with-alien ((myst (struct mystruct))) + (with-alien ((myin int (slot myst 'myint))) + (integerp myin))) + + results in error: + + There is no slot named MYINT in + #. + [Condition of type SIMPLE-ERROR] + + reported by Neil Haven on sbcl-devel. diff --git a/version.lisp-expr b/version.lisp-expr index f5b2641..907aeda 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.21.10" +"1.0.21.11" -- 1.7.10.4