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