Commit 26e3ad82 authored by Raymond Toy's avatar Raymond Toy

Fix #60: `C::%UNARY-FROUND` is undefined

Remove the symbol `C::%UNARY-FROUND` and just let the compiler package
inherit it from the kernel package.

* src/bootfiles/21c/boot-2018-02-1.lisp
    * Use this to bootstrap the change (by uninterning the symbol)
* src/code/float.lisp
    * Just export %unary-fround
* src/general-info/release-21d.md
    * Update
* tests/issues.lisp
    * Add test for this issue
parent 894e18e0
Pipeline #285 failed with stage
in 4 minutes and 20 seconds
;; Get rid of incorrect symbol c::%unary-fround and just inherit
;; %unary-fround from the kernel package.
(ext:without-package-locks
(unintern 'c::%unary-fround "C"))
(export 'kernel::%unary-fround "KERNEL")
......@@ -23,7 +23,7 @@
%unary-ftruncate/single-float %unary-ftruncate/double-float))
#-x87
(export '(%unary-fround/single-float %unary-fround/double-float))
(export '(%unary-fround %unary-fround/single-float %unary-fround/double-float))
(in-package "LISP")
(export '(least-positive-normalized-short-float
......
......@@ -29,10 +29,11 @@ public domain.
* ANSI compliance fixes:
* Bug fixes:
* Gitlab tickets:
* ~~~#50~~~ CLX (Hemlock) fails to run.
* ~~~#49~~~ CLM crashes
* ~~~#47~~~ Backquate and multiple splices
* ~~~#59~~~ Incorrect type-derivation for `decode-float`
* ~~#50~~ CLX (Hemlock) fails to run.
* ~~#49~~ CLM crashes
* ~~#47~~ Backquate and multiple splices
* ~~#59~~ Incorrect type-derivation for `decode-float`
* ~~#60~~ The function `C::%UNARY-FROUND` is undefined
* Other changes:
* Improvements to the PCL implementation of CLOS:
* Changes to building procedure:
......
......@@ -503,4 +503,15 @@
(c::decode-float-exp-derive-type-aux
(c::specifier-type `(single-float ,arg-lo ,arg-hi)))
arg-lo
arg-hi))))
\ No newline at end of file
arg-hi))))
(define-test issue.60
(:tag :issues)
(let ((c14 (compile nil #'(lambda (x)
(fround (the (member 1.0 2d0) x))))))
(assert-equalp
(values 1.0 0.0)
(funcall c14 1.0))
(assert-equalp
(values 2d0 0d0)
(funcall c14 2d0))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment