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