diff --git a/code/numbers.lisp b/code/numbers.lisp index 68210c58750dd9e8d61b0ccb7ece4d3229fe3c13..d075e3e7456a6862961bc5235a97780f82d514a8 100644 --- a/code/numbers.lisp +++ b/code/numbers.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.19 1991/11/14 09:32:11 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.20 1992/02/07 11:33:23 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.19 1991/11/14 09:32:11 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.20 1992/02/07 11:33:23 ram Exp $ ;;; ;;; This file contains the definitions of most number functions. ;;; @@ -30,7 +30,8 @@ boole-and boole-ior boole-xor boole-eqv boole-nand boole-nor boole-andc1 boole-andc2 boole-orc1 boole-orc2 lognot logtest logbitp ash integer-length byte byte-size byte-position - ldb ldb-test mask-field dpb deposit-field)) + ldb ldb-test mask-field dpb deposit-field + upgraded-complex-part-type)) (in-package "KERNEL") @@ -246,6 +247,12 @@ ;;;; Complexes: +(defun upgraded-complex-part-type (spec) + "Returns the element type of the most specialized COMPLEX number type that + can hold parts of type Spec. This is currently always T." + (declare (ignore spec)) + t) + (defun complex (realpart &optional (imagpart 0)) "Builds a complex number from the specified components." (number-dispatch ((realpart real) (imagpart real))