diff --git a/code/numbers.lisp b/code/numbers.lisp index ee7d354c3f904d4c6408acf80fb7f6359b4a88f5..0587c719c3a2fa605f5f10ed932ef50a66f66eda 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