[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Fix a couple undefined function warnings in make-host-1
From:       "Douglas Katzman" <snuglas () users ! sourceforge ! net>
Date:       2015-12-31 1:09:31
Message-ID: E1aERkE-0005ma-Hw () sfs-ml-1 ! v29 ! ch3 ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  15b24ac286af6084929ab9dc45f077a2ab4850f4 (commit)
      from  654f7a98d58e1b35def8ccef056f650ea4a3e70b (commit)

- Log -----------------------------------------------------------------
commit 15b24ac286af6084929ab9dc45f077a2ab4850f4
Author: Douglas Katzman <dougk@google.com>
Date:   Wed Dec 30 20:00:15 2015 -0500

    Fix a couple undefined function warnings in make-host-1
    
    (Eschew nonstandard BASE-CHAR-P though it's never actually called.)
---
 src/code/defstruct.lisp        |    1 +
 src/compiler/arm64/insts.lisp  |    2 +-
 src/compiler/x86-64/insts.lisp |    2 +-
 src/compiler/x86/insts.lisp    |    2 +-
 4 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 618ea6e..01b212d 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1583,6 +1583,7 @@ or they must be declared locally notinline at each call site.~@:>")
   (multiple-value-bind (info foundp) (info :function :type name)
     (values (cond ((defstruct-description-p info)
                    (specifier-type (struct-ctor-ftype info name)))
+                  #-sb-xc-host ; PCL doesn't exist
                   ((eq info :generic-function) (sb!pcl::compute-gf-ftype name))
                   (t info))
             foundp)))
diff --git a/src/compiler/arm64/insts.lisp b/src/compiler/arm64/insts.lisp
index 4a88496..fae2ee1 100644
--- a/src/compiler/arm64/insts.lisp
+++ b/src/compiler/arm64/insts.lisp
@@ -2863,7 +2863,7 @@
          (aver (integerp value))
          (cons type value))
         (:base-char
-         #!+sb-unicode (aver (base-char-p value))
+         #!+sb-unicode (aver (typep value 'base-char))
          (cons :byte (char-code value)))
         (:character
          (aver (characterp value))
diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index e292718..a0ed78e 100644
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -3839,7 +3839,7 @@
          (aver (integerp value))
          (cons type value))
       ((:base-char)
-         #!+sb-unicode (aver (base-char-p value))
+         #!+sb-unicode (aver (typep value 'base-char))
          (cons :byte (char-code value)))
       ((:character)
          (aver (characterp value))
diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index 8f43a29..cf0a655 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -2810,7 +2810,7 @@
          (aver (integerp value))
          (cons type value))
       ((:base-char)
-         #!+sb-unicode (aver (base-char-p value))
+         #!+sb-unicode (aver (typep value 'base-char))
          (cons :byte (char-code value)))
       ((:character)
          (aver (characterp value))

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


hooks/post-receive
-- 
SBCL

------------------------------------------------------------------------------
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]