Commit 31c6bf9f authored by Raymond Toy's avatar Raymond Toy

Merge branch 'rtoy-fix-60-unary-fround-undefined' into 'master'

Fix #60: unary fround undefined

Closes #60

See merge request !36
parents 894e18e0 84d9a4bd
Pipeline #287 passed with stage
in 9 minutes and 38 seconds
......@@ -12,7 +12,7 @@ linux-runner:
- mkdir snapshot
- (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2)
script:
- bin/build.sh -C "" -o snapshot/bin/lisp
- bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
- bin/make-dist.sh -I dist linux-4
- bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
......@@ -24,6 +24,6 @@ osx-runner:
- mkdir snapshot
- (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2)
script:
- bin/build.sh -C "" -o snapshot/bin/lisp
- bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
- bin/make-dist.sh -I dist darwin-4
- bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
;; 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