From 8c543df35dffbcbef9aa8ed0b42ae27d47070f90 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Tue, 15 Jul 2003 13:46:58 +0000
Subject: [PATCH] Add stub definitions for KERNEL:%NUMERATOR and
 KERNEL:%DENOMINATOR (needed by the byte interpreter).

Fixes the following bug:

   (defun foo (x) (1+ (numerator x)))

   (let ((c::*byte-compile* t)) (compile 'foo))

   (foo 2/3) => undefined function KERNEL:%NUMERATOR
---
 code/kernel.lisp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/code/kernel.lisp b/code/kernel.lisp
index a286ea270..7d46004bc 100644
--- a/code/kernel.lisp
+++ b/code/kernel.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.13 2003/07/02 21:45:33 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.14 2003/07/15 13:46:58 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -159,3 +159,12 @@
 #-sparc
 (defun double-float-bits (x)
   (values (double-float-high-bits x) (double-float-low-bits x)))
+
+
+(defun %numerator (x)
+  (declare (type ratio x))
+  (%numerator x))
+
+(defun %denominator (x)
+  (declare (type ratio x))
+  (%denominator x))
-- 
GitLab