Commit 53803637 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #166: integer-decode-float has incorrect type for exponent

parent c2311453

.gitlab-ci.yml

+1 −1
Original line number Diff line number Diff line 
variables:

  download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2021/07"

  version: "2021-07-x86"

  bootstrap: ""

  bootstrap: "-B boot-2021-07-1"



stages:

  - install

bin/build.sh

+1 −1
Original line number Diff line number Diff line
@@ -39,7 +39,7 @@ ENABLE2="yes" 
ENABLE3="yes"

ENABLE4="yes"



version=21c

version=21d

SRCDIR=src

BINDIR=bin

TOOLDIR=$BINDIR

src/bootfiles/21d/boot-2021-07-1.lisp

0 → 100644
+17 −0
Original line number Diff line number Diff line 
;; Bootstrap file

;;

;; Use "bin/build.sh -B boot-2021-07-1" to build this.

;;

;; We want to export the symbols from the KERNEL package which also

;; exists in the C package, so we unintern the conflicting symbols from

;; the C package.



(in-package "KERNEL")

(ext:without-package-locks

  (handler-bind

      ((error (lambda (c)

		(declare (ignore c))

		(invoke-restart 'lisp::unintern-conflicting-symbols))))

    (export '(DOUBLE-FLOAT-INT-EXPONENT

	      SINGLE-FLOAT-INT-EXPONENT))))

src/code/exports.lisp

+3 −1
Original line number Diff line number Diff line
@@ -2329,10 +2329,11 @@ 
	   "DOUBLE-FLOAT-EXPONENT"

	   "DOUBLE-FLOAT-BITS"

	   "DOUBLE-FLOAT-HIGH-BITS"

	   "DOUBLE-FLOAT-INT-EXPONENT"

	   "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-P" "FLOAT-WAIT"

	   "DYNAMIC-SPACE-FREE-POINTER" "ERROR-NUMBER-OR-LOSE" "FILENAME"

	   "FLOAT-DIGITS" "FLOAT-EXPONENT" "FLOAT-FORMAT-DIGITS"

	   "FLOAT-FORMAT-MAX" "FLOAT-RADIX" "FORM" "FUNCALLABLE-INSTANCE-P"

	   "FLOAT-FORMAT-MAX" "FLOAT-INT-EXPONENT" "FLOAT-RADIX" "FORM" "FUNCALLABLE-INSTANCE-P"

	   "FUNCTION-CODE-HEADER" "FUNCTION-TYPE" "FUNCTION-TYPE-ALLOWP"

	   "FUNCTION-TYPE-KEYP" "FUNCTION-TYPE-KEYWORDS"

	   "FUNCTION-TYPE-NARGS" "FUNCTION-TYPE-OPTIONAL" "FUNCTION-TYPE-P"
@@ -2426,6 +2427,7 @@ 
 	   "SIMPLE-ARRAY-SIGNED-BYTE-16-P" "SIMPLE-ARRAY-SIGNED-BYTE-30-P"

	   "SIMPLE-ARRAY-SIGNED-BYTE-32-P" "SIMPLE-ARRAY-SIGNED-BYTE-8-P" 

	   "SIMPLE-UNBOXED-ARRAY" "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"

	   "SINGLE-FLOAT-INT-EXPONENT"

	   "SINGLE-FLOAT-P" "SINGLE-VALUE-TYPE" "SPECIFIER-TYPE" "STACK-REF"

	   "STD-COMPUTE-CLASS-PRECEDENCE-LIST"

	   "STREAMLIKE" "SIMPLE-STREAM-BUFFER" "STRINGABLE" "STRINGLIKE"

src/compiler/fndb.lisp

+1 −1
Original line number Diff line number Diff line
@@ -319,7 +319,7 @@ 
(defknown (float-digits float-precision) (float) float-digits

  (movable foldable flushable explicit-check))

(defknown integer-decode-float (float)

	  (values integer float-exponent (member -1 1))

	  (values integer float-int-exponent (member -1 1))

	  (movable foldable flushable explicit-check))



(defknown complex (real &optional real) number