From 6cf69476a1f2bb0149e6e6b2be230ce4cbda3654 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 4 Apr 1993 14:11:04 +0000
Subject: [PATCH] Added ``real'' built-in-class.

---
 code/class.lisp | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/code/class.lisp b/code/class.lisp
index a9b198412..113fb36c7 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.21 1993/04/04 12:50:50 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.22 1993/04/04 14:11:04 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -549,28 +549,34 @@
 	  (number :translation number)
 	  (complex :translation complex :inherits (number generic-number)
 		   :codes (#.vm:complex-type))
+	  (real :translation real :inherits (number generic-number))
 	  (float :translation float :inherits (number generic-number))
 	  (single-float
-	   :translation single-float :inherits (float number generic-number)
+	   :translation single-float
+	   :inherits (float real number generic-number)
 	   :codes (#.vm:single-float-type))
 	  (double-float
-	   :translation double-float  :inherits (float number generic-number)
+	   :translation double-float
+	   :inherits (float real number generic-number)
 	   :codes (#.vm:double-float-type))
-	  (rational :translation rational :inherits (number generic-number))
+	  (rational
+	   :translation rational
+	   :inherits (real number generic-number))
 	  (ratio
 	   :translation (and rational (not integer))
-	   :inherits (rational number generic-number)
+	   :inherits (rational real number generic-number)
 	   :codes (#.vm:ratio-type))
 	  (integer
-	   :translation integer  :inherits (rational number generic-number))
+	   :translation integer
+	   :inherits (rational real number generic-number))
 	  (fixnum
 	   :translation (integer #.vm:target-most-negative-fixnum
 				 #.vm:target-most-positive-fixnum)
-	   :inherits (integer rational number generic-number)
+	   :inherits (integer rational real number generic-number)
 	   :codes (#.vm:even-fixnum-type #.vm:odd-fixnum-type))
 	  (bignum
 	   :translation (and integer (not fixnum))
-	   :inherits (integer rational number generic-number)
+	   :inherits (integer rational real number generic-number)
 	   :codes (#.vm:bignum-type))
 	  
 	  (list :translation (or cons (member nil))
-- 
GitLab