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