From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 21 Jan 2008 14:41:57 +0000 (+0000)
Subject: 1.0.13.47: spurious INLINE declaration for (SETF FOO) from typed DEFSTRUCT
X-Git-Url: https://repo.or.cz/w/sbcl/simd.git/commitdiff_plain/451878f56ecdd9cc0b617c0552edf2a2ff0624db

1.0.13.47: spurious INLINE declaration for (SETF FOO) from typed DEFSTRUCT

 * Thanks to David Smith.
---

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 0fb2b3678..26b5058dc 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -479,7 +479,8 @@
           (let ((inherited (accessor-inherited-data name defstruct)))
             (cond
               ((not inherited)
-               (stuff `(declaim (inline ,name (setf ,name))))
+               (stuff `(declaim (inline ,name ,@(unless (dsd-read-only slot)
+                                                        `((setf ,name))))))
                ;; FIXME: The arguments in the next two DEFUNs should
                ;; be gensyms. (Otherwise e.g. if NEW-VALUE happened to
                ;; be the name of a special variable, things could get
diff --git a/version.lisp-expr b/version.lisp-expr
index 1b3faf997..5d6dd300d 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.13.46"
+"1.0.13.47"