diff --git a/compiler/old-rt/subprim.lisp b/compiler/old-rt/subprim.lisp
index 4afe52f60b5354eb94801592691ad5b0cb9236c0..449ddf8bac4a1c61fd3c1fb470777306d6327d8c 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))