From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 7 Oct 2008 11:46:47 +0000 (+0000)
Subject: 1.0.21.11: record bug 431
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d68756e535594baf6114cb75526891b0be173419;p=sbcl.git

1.0.21.11: record bug 431

 * Random pick from my sbcl-devel backlog.
---

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
+     #<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT MYSTRUCT
+                                             (MYSHORT (SIGNED 16))
+                                             (MYCHAR (SIGNED 8)))>.
+   [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"