From 84e012390115eaf6f6778de47b8a46ab6915c615 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 10 Jan 2000 14:47:02 +0000
Subject: [PATCH] Extend the union type :unparse method to recognise the new
 translated bignum type.

---
 code/type.lisp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/code/type.lisp b/code/type.lisp
index 140afb567..2fe188c21 100644
--- a/code/type.lisp
+++ b/code/type.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/type.lisp,v 1.31 1998/08/19 15:19:35 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.32 2000/01/10 14:47:02 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2017,13 +2017,14 @@
 (define-type-class union)
 
 
-;;;    If List, then return that, otherwise the OR of the component types.
+;;;    If List or Bignum then return that, otherwise the OR of the component
+;;; types.
 ;;;
 (define-type-method (union :unparse) (type)
   (declare (type ctype type))
-  (if (type= type (specifier-type 'list))
-      'list
-      `(or ,@(mapcar #'type-specifier (union-type-types type)))))
+  (cond ((type= type (specifier-type 'list)) 'list)
+	((type= type (specifier-type 'bignum)) 'bignum)
+	(t `(or ,@(mapcar #'type-specifier (union-type-types type))))))
 
 
 
-- 
GitLab