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))