From 3aacb9a499d187be2a8aa75a455accd43ce49416 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 7 Jul 2006 18:23:48 +0000
Subject: [PATCH] Add a function to describe a double-double-float, including
 its components instead of using the default.

---
 code/describe.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/code/describe.lisp b/code/describe.lisp
index 71d713ae8..f325613bc 100644
--- a/code/describe.lisp
+++ b/code/describe.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/describe.lisp,v 1.45 2006/01/17 19:20:50 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.46 2006/07/07 18:23:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -111,6 +111,8 @@
     (instance (describe-instance x))
     (array (describe-array x))
     (fixnum (describe-fixnum x))
+    #+double-double
+    (double-double-float (describe-double-double-float x))
     (cons
      (if (and (valid-function-name-p x)
 	      (fboundp x))
@@ -174,6 +176,12 @@
 	(t
 	 (format t "~&It is a composite number."))))
 
+#+double-double
+(defun describe-double-double-float (x)
+  (format t "~&~S is a ~S." x (type-of x))
+  (format t "~&Its components are ~S and ~S."
+	  (kernel:double-double-hi x) (kernel:double-double-lo x)))
+
 (defun describe-hash-table (x)
   (format t "~&~S is an ~A hash table." x (hash-table-test x))
   (format t "~&Its size is ~D buckets." (length (hash-table-table x)))
-- 
GitLab