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:

     (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)))