Skip to content
Snippets Groups Projects
Commit 21c98b2a authored by wlott's avatar wlott
Browse files

Changed %primitive numerator to %numerator. Same for denominator,

realpart, and imagpart.
parent 985e7f7e
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.38 1992/08/05 00:27:15 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.39 1992/12/13 15:18:54 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -213,25 +213,25 @@
(def-source-transform numerator (num)
(once-only ((n-num `(the rational ,num)))
`(if (ratiop ,n-num)
(%primitive numerator ,n-num)
(%numerator ,n-num)
,n-num)))
;;;
(def-source-transform denominator (num)
(once-only ((n-num `(the rational ,num)))
`(if (ratiop ,n-num)
(%primitive denominator ,n-num)
(%denominator ,n-num)
1)))
;;;
(def-source-transform realpart (num)
(once-only ((n-num num))
`(if (complexp ,n-num)
(%primitive realpart ,n-num)
(%realpart ,n-num)
,n-num)))
;;;
(def-source-transform imagpart (num)
(once-only ((n-num num))
`(cond ((complexp ,n-num)
(%primitive imagpart ,n-num))
(%imagpart ,n-num))
((floatp ,n-num)
(float 0 ,n-num))
(t
......@@ -853,25 +853,6 @@
(logior (logand new mask)
(logand int (lognot mask)))))
;;;; Funny function stubs:
;;;
;;; These functions are the result of compiler transformations. We never
;;; actually compile a call to these functions, but we need to have a
;;; definition to allow constant folding.
;;;
#-new-compiler
(progn
(defun %negate (x) (%primitive negate x))
(defun %ldb (s p i) (%primitive ldb s p i))
(defun %dpb (n s p i) (%primitive dpb n s p i))
(defun %mask-field (s p i) (%primitive mask-field s p i))
(defun %deposit-field (n s p i) (%primitive deposit-field n s p i))
); #-new-compiler progn
;;; Miscellanous numeric transforms:
......
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