Commit b0c8ee213ee9d8db27e89e0699cc500e362a5087

Authored by Raymond Toy
1 parent 2c80ee39

Turn off compiler macros converting two-arg functions into CL

functions or QD-REAL functions.  They don't handle all the cases.  If
we're going to make this CMUCL-specific, deftransforms would be much
easier and much better.
Showing 1 changed file with 2 additions and 2 deletions
qd-methods.lisp
... ... @@ -995,7 +995,7 @@ underlying floating-point format"
995 995 ;; Define compiler macro the convert two-arg-foo into the appropriate
996 996 ;; CL function or QD-REAL function so we don't have to do CLOS
997 997 ;; dispatch.
998   -#+cmu
  998 +#+(or)
999 999 (macrolet
1000 1000 ((frob (name cl-op qd-op)
1001 1001 `(define-compiler-macro ,name (&whole form x y &environment env)
... ... @@ -1022,7 +1022,7 @@ underlying floating-point format"
1022 1022 (frob two-arg-* cl:* mul-qd)
1023 1023 (frob two-arg-/ cl:/ div-qd))
1024 1024  
1025   -#+cmu
  1025 +#+(or)
1026 1026 (macrolet
1027 1027 ((frob (name cl-op qd-op cl-qd-op qd-cl-op)
1028 1028 `(define-compiler-macro ,name (&whole form x y &environment env)
... ...