Raymond Toy pushed to branch issue-435-add-core-math-lisp-support at cmucl / cmucl Commits: 87935cac by Raymond Toy at 2026-06-30T15:43:39-07:00 Simplify deftransform for single-float special functions Because we now use openlibm for the single-float versions of the special functions, we don't need the special case the deftransform for special functions for single-float args. We can just call the single-float openlibm functions instead of coercing the double to single and calling the double-float versions. - - - - - 1 changed file: - src/compiler/float-tran.lisp Changes: ===================================== src/compiler/float-tran.lisp ===================================== @@ -688,12 +688,9 @@ (let ((primf (intern (string (symbolicate prim "F")) "KERNEL"))) (deftransform name ((x) '(single-float) rtype :eval-name t) - #-core-math - `(coerce (,prim (coerce x 'double-float)) 'single-float) - #+core-math `(,primf x)) (deftransform name ((x) '(double-float) rtype :eval-name t :when :both) - `(,prim x))))) + `(,prim x))))) #-core-math (dolist (stuff '((sqrt %sqrt float))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/87935cac25b1373a9ddf6701... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/87935cac25b1373a9ddf6701... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help