diff --git a/code/kernel.lisp b/code/kernel.lisp index a286ea270079d54cb57835464beac5b8b74f98bf..7d46004bc82cf01c468d5b8ffa30bd4b5e956c0f 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))