[Sbcl-commits] master: Unbreak build

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

The branch "master" has been updated in SBCL:
       via  77aadd48a0b5fa576c387b6e3fb7840ebe157064 (commit)
      from  069d79066cd5c18482833c11b1e36d71090c05e7 (commit)

- Log -----------------------------------------------------------------
commit 77aadd48a0b5fa576c387b6e3fb7840ebe157064
Author: Douglas Katzman <do...@go...>
Date:   Wed Aug 17 11:19:37 2016 -0400

    Unbreak build
---
 src/code/fop.lisp |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index e7d37a5..1173a4d 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -229,7 +229,9 @@
 
 ;; Cold load has its own implementation of all symbol fops,
 ;; but we have to execute define-fop now to assign their numbers.
-(labels ((read-symbol-name (length+flag fasl-input)
+(labels #+sb-xc-host ()
+        #-sb-xc-host
+        ((read-symbol-name (length+flag fasl-input)
            (let* ((namelen (ash (the fixnum length+flag) -1))
                   (base-p (oddp length+flag))
                   (buffer (%fasl-input-name-buffer fasl-input))
@@ -262,7 +264,7 @@
            (ensure-symbol-hash symbol)
            symbol))
 
-  (declare (inline ensure-hashed))
+  #-sb-xc-host (declare (inline ensure-hashed))
   (!define-fop 80 :not-host (fop-lisp-symbol-save ((:operands length+flag)))
     (aux-fop-intern length+flag *cl-package* (fasl-input)))
   (!define-fop 84 :not-host (fop-keyword-symbol-save ((:operands length+flag)))

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


hooks/post-receive
-- 
SBCL