[Sbcl-commits] master: Repair build breakage due to style warning

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

The branch "master" has been updated in SBCL:
       via  38795f37c2d8ca9303c87393eb621914d332b58c (commit)
      from  13fc7bd65a168ed78b5b28b45065f39a90fbbda7 (commit)

- Log -----------------------------------------------------------------
commit 38795f37c2d8ca9303c87393eb621914d332b58c
Author: Douglas Katzman <do...@go...>
Date:   Tue Jun 20 21:25:35 2017 -0400

    Repair build breakage due to style warning
---
 src/code/foreign.lisp             | 2 +-
 src/code/globals.lisp             | 4 ++--
 src/compiler/generic/genesis.lisp | 2 +-
 src/compiler/generic/parms.lisp   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 925e818..9edef84 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -167,7 +167,7 @@ if the symbol isn't found."
   #!+sb-dynamic-core
   (loop for table-address from sb!vm::linkage-table-space-start
           by sb!vm::linkage-table-entry-size
-          and reference across sb!vm::*required-runtime-c-symbols*
+          and reference across (symbol-value 'sb!vm::+required-runtime-c-symbols+)
         do (setf (gethash reference *linkage-info*) table-address))
   #!+os-provides-dlopen
   (setf *runtime-dlhandle* (dlopen-or-lose))
diff --git a/src/code/globals.lisp b/src/code/globals.lisp
index a2e7a69..03459bc 100644
--- a/src/code/globals.lisp
+++ b/src/code/globals.lisp
@@ -23,5 +23,5 @@
 ;;; (To prove that it isn't used, it's not a toplevel form)
 #!+(and sb-dynamic-core (host-feature sb-xc))
 (let ()
-  (defconstant sb!vm::*required-runtime-c-symbols*
-    (symbol-value 'sb!vm::*required-runtime-c-symbols*)))
+  (defconstant sb!vm::+required-runtime-c-symbols+
+    (symbol-value 'sb!vm::+required-runtime-c-symbols+)))
diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 4bee919..eaafb6e 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2236,7 +2236,7 @@ core and return a descriptor to it."
              (lambda (symbol)
                (cold-cons (set-readonly (base-string-to-core (car symbol)))
                           (cdr symbol)))
-             'sb!vm::*required-runtime-c-symbols*)
+             'sb!vm::+required-runtime-c-symbols+)
     (to-core (sort (copy-list *cold-assembler-routines*) #'string< :key #'car)
              (lambda (rtn)
                (cold-cons (cold-intern (car rtn)) (number-to-core (cdr rtn))))
diff --git a/src/compiler/generic/parms.lisp b/src/compiler/generic/parms.lisp
index 8516e25..31aaf34 100644
--- a/src/compiler/generic/parms.lisp
+++ b/src/compiler/generic/parms.lisp
@@ -183,7 +183,7 @@
     #!+(and sb-thread ppc) *tls-index-lock*
 
     ;; dynamic runtime linking support
-    #!+sb-dynamic-core *required-runtime-c-symbols*
+    #!+sb-dynamic-core +required-runtime-c-symbols+
     sb!kernel::*gc-epoch*
 
     ;; Dispatch tables for generic array access

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


hooks/post-receive
-- 
SBCL