From 02a667832a95663164930f1bde48e1661375cc33 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Feb 1990 09:22:57 +0000
Subject: [PATCH] Flushed NUMERATOR, DENOMINATOR, REALPART and IMAGPART, since
 these are now open-coded.

---
 compiler/old-rt/subprim.lisp | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/old-rt/subprim.lisp b/compiler/old-rt/subprim.lisp
index 4afe52f60..449ddf8ba 100644
--- a/compiler/old-rt/subprim.lisp
+++ b/compiler/old-rt/subprim.lisp
@@ -45,7 +45,6 @@ implementations, since they are accessed through %primitive.
 (define-miscop collect-garbage () :results ())
 (define-miscop current-binding-pointer ())
 (define-miscop current-stack-pointer ())
-(define-miscop denominator (n))
 (define-miscop dynamic-space-in-use ())
 (define-miscop error0 (code) :results ())
 (define-miscop error1 (code x) :results ())
@@ -67,7 +66,6 @@ implementations, since they are accessed through %primitive.
 (define-miscop header-ref (x i))
 (define-miscop header-set (x i v))
 |#
-(define-miscop imagpart (z))
 (define-miscop logdpb (v s p n))
 (define-miscop logldb (s p n))
 (define-miscop long-float-ref (l i))
@@ -78,12 +76,10 @@ implementations, since they are accessed through %primitive.
 (define-miscop make-ratio (num den))
 (define-miscop negate (n))
 (define-miscop newspace-bit ())
-(define-miscop numerator (n))
 (define-miscop pointer-system-set (s i p))
 (define-miscop purify () :results ())
 (define-miscop read-binding-stack (b))
 (define-miscop read-control-stack (f))
-(define-miscop realpart (z))
 (define-miscop reset-c-stack (sp) :results ())
 (define-miscop return-to-c (sp value) :results ())
 (define-miscop sap-system-ref (s i))
-- 
GitLab