From 91537896fa9d8766571428e4113bb4302eda8e53 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 3 Oct 1990 09:58:11 +0000 Subject: [PATCH] Added interpreter stubs for numerator and denominator. --- code/numbers.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/code/numbers.lisp b/code/numbers.lisp index ee7d354c3..0587c719c 100644 --- a/code/numbers.lisp +++ b/code/numbers.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.13 1990/10/01 15:02:58 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.14 1990/10/03 09:58:11 wlott Exp $ ;;; ;;; This file contains the definitions of most number functions. ;;; @@ -270,6 +270,18 @@ (if (plusp number) 1 -1) (/ number (abs number))))) + +;;;; Ratios. + +(defun numerator (number) + "Return the numerator of NUMBER, which must be rational." + (numerator number)) + +(defun denominator (number) + "Return the denominator of NUMBER, which must be rational." + (denominator number)) + + ;;;; Arithmetic Operations -- GitLab