From 21c98b2a0c72f0a88903609b06cac6a37ef98474 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 13 Dec 1992 15:18:54 +0000
Subject: [PATCH] Changed %primitive numerator to %numerator.  Same for
 denominator, realpart, and imagpart.

---
 compiler/srctran.lisp | 29 +++++------------------------
 1 file changed, 5 insertions(+), 24 deletions(-)

diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 19510daf9..a85ab957f 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -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:
 
-- 
GitLab