Skip to content
Snippets Groups Projects
Commit ef5adda7 authored by dtc's avatar dtc
Browse files

Temporarily disable the expt derive-type optimizer which has a

multitude of problems.
parent b626248e
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.56 1997/12/19 02:39:29 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.57 1997/12/20 15:40:21 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -890,6 +890,7 @@ ...@@ -890,6 +890,7 @@
;; or a complex. ;; or a complex.
(float-or-complex-type (numeric-contagion x y))))))) (float-or-complex-type (numeric-contagion x y)))))))
#+nil
(defoptimizer (expt derive-type) ((x y)) (defoptimizer (expt derive-type) ((x y))
(two-arg-derive-type x y #'expt-derive-type-aux #'expt)) (two-arg-derive-type x y #'expt-derive-type-aux #'expt))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment