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