Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
26e3ad82
by Raymond Toy at 2018-02-17T19:44:02-08:00
-
84d9a4bd
by Raymond Toy at 2018-02-17T19:56:32-08:00
-
31c6bf9f
by Raymond Toy at 2018-02-18T15:30:51+00:00
5 changed files:
- .gitlab-ci.yml
- + src/bootfiles/21c/boot-2018-02-1.lisp
- src/code/float.lisp
- src/general-info/release-21d.md
- tests/issues.lisp
Changes:
| ... | ... | @@ -12,7 +12,7 @@ linux-runner: |
| 12 | 12 |
- mkdir snapshot
|
| 13 | 13 |
- (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2)
|
| 14 | 14 |
script:
|
| 15 |
- - bin/build.sh -C "" -o snapshot/bin/lisp
|
|
| 15 |
+ - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
|
|
| 16 | 16 |
- bin/make-dist.sh -I dist linux-4
|
| 17 | 17 |
- bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
|
| 18 | 18 |
|
| ... | ... | @@ -24,6 +24,6 @@ osx-runner: |
| 24 | 24 |
- mkdir snapshot
|
| 25 | 25 |
- (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2)
|
| 26 | 26 |
script:
|
| 27 |
- - bin/build.sh -C "" -o snapshot/bin/lisp
|
|
| 27 |
+ - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
|
|
| 28 | 28 |
- bin/make-dist.sh -I dist darwin-4
|
| 29 | 29 |
- bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
|
| 1 |
+;; Get rid of incorrect symbol c::%unary-fround and just inherit
|
|
| 2 |
+;; %unary-fround from the kernel package.
|
|
| 3 |
+(ext:without-package-locks
|
|
| 4 |
+ (unintern 'c::%unary-fround "C"))
|
|
| 5 |
+(export 'kernel::%unary-fround "KERNEL")
|
| ... | ... | @@ -23,7 +23,7 @@ |
| 23 | 23 |
%unary-ftruncate/single-float %unary-ftruncate/double-float))
|
| 24 | 24 |
|
| 25 | 25 |
#-x87
|
| 26 |
-(export '(%unary-fround/single-float %unary-fround/double-float))
|
|
| 26 |
+(export '(%unary-fround %unary-fround/single-float %unary-fround/double-float))
|
|
| 27 | 27 |
|
| 28 | 28 |
(in-package "LISP")
|
| 29 | 29 |
(export '(least-positive-normalized-short-float
|
| ... | ... | @@ -29,10 +29,11 @@ public domain. |
| 29 | 29 |
* ANSI compliance fixes:
|
| 30 | 30 |
* Bug fixes:
|
| 31 | 31 |
* Gitlab tickets:
|
| 32 |
- * ~~~#50~~~ CLX (Hemlock) fails to run.
|
|
| 33 |
- * ~~~#49~~~ CLM crashes
|
|
| 34 |
- * ~~~#47~~~ Backquate and multiple splices
|
|
| 35 |
- * ~~~#59~~~ Incorrect type-derivation for `decode-float`
|
|
| 32 |
+ * ~~#50~~ CLX (Hemlock) fails to run.
|
|
| 33 |
+ * ~~#49~~ CLM crashes
|
|
| 34 |
+ * ~~#47~~ Backquate and multiple splices
|
|
| 35 |
+ * ~~#59~~ Incorrect type-derivation for `decode-float`
|
|
| 36 |
+ * ~~#60~~ The function `C::%UNARY-FROUND` is undefined
|
|
| 36 | 37 |
* Other changes:
|
| 37 | 38 |
* Improvements to the PCL implementation of CLOS:
|
| 38 | 39 |
* Changes to building procedure:
|
| ... | ... | @@ -503,4 +503,15 @@ |
| 503 | 503 |
(c::decode-float-exp-derive-type-aux
|
| 504 | 504 |
(c::specifier-type `(single-float ,arg-lo ,arg-hi)))
|
| 505 | 505 |
arg-lo
|
| 506 |
- arg-hi))))
|
|
| \ No newline at end of file | ||
| 506 |
+ arg-hi))))
|
|
| 507 |
+ |
|
| 508 |
+(define-test issue.60
|
|
| 509 |
+ (:tag :issues)
|
|
| 510 |
+ (let ((c14 (compile nil #'(lambda (x)
|
|
| 511 |
+ (fround (the (member 1.0 2d0) x))))))
|
|
| 512 |
+ (assert-equalp
|
|
| 513 |
+ (values 1.0 0.0)
|
|
| 514 |
+ (funcall c14 1.0))
|
|
| 515 |
+ (assert-equalp
|
|
| 516 |
+ (values 2d0 0d0)
|
|
| 517 |
+ (funcall c14 2d0))))
|