[Sbcl-commits] master: Avoid compiler note about non-use of type assertion due to assignment.

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  f06a47286ce8d0ff1f54bbd214201fcbe0254839 (commit)
      from  a8c0661ccbf066ebb5327cc90486cd70354b65ac (commit)

- Log -----------------------------------------------------------------
commit f06a47286ce8d0ff1f54bbd214201fcbe0254839
Author: Douglas Katzman <do...@go...>
Date:   Tue Apr 1 15:42:41 2014 -0400

    Avoid compiler note about non-use of type assertion due to assignment.
---
 src/compiler/generic/genesis.lisp |   24 ++++++++++++------------
 1 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 77f3312..5e551e1 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -577,18 +577,18 @@
   #!+sb-doc
   "Write VALUE displaced INDEX words from ADDRESS."
   ;; If we're passed a symbol as a value then it needs to be interned.
-  (when (symbolp value) (setf value (cold-intern value)))
-  (if (eql (descriptor-gspace value) :load-time-value)
-    (note-load-time-value-reference address
-                                    (- (ash index sb!vm:word-shift)
-                                       (logand (descriptor-bits address)
-                                               sb!vm:lowtag-mask))
-                                    value)
-    (let* ((bytes (gspace-bytes (descriptor-intuit-gspace address)))
-           (byte-index (ash (+ index (descriptor-word-offset address))
-                               sb!vm:word-shift)))
-      (setf (bvref-word bytes byte-index)
-            (descriptor-bits value)))))
+  (let ((value (cond ((symbolp value) (cold-intern value))
+                     (t value))))
+    (if (eql (descriptor-gspace value) :load-time-value)
+        (note-load-time-value-reference address
+                                        (- (ash index sb!vm:word-shift)
+                                           (logand (descriptor-bits address)
+                                                   sb!vm:lowtag-mask))
+                                        value)
+        (let* ((bytes (gspace-bytes (descriptor-intuit-gspace address)))
+               (byte-index (ash (+ index (descriptor-word-offset address))
+                                sb!vm:word-shift)))
+          (setf (bvref-word bytes byte-index) (descriptor-bits value))))))
 
 (declaim (ftype (function (descriptor (or symbol descriptor))) write-memory))
 (defun write-memory (address value)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL