diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index e449204bdd12a23eb8f3060b12f5003df220e6a7..45cb0844b096831c1135dc3ad45cb147ed9c90ed 100644 --- a/compiler/generic/vm-fndb.lisp +++ b/compiler/generic/vm-fndb.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.19 1990/07/07 01:02:29 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.20 1990/07/12 12:42:10 ram Exp $ ;;; ;;; This file defines the machine specific function signatures. ;;; @@ -175,21 +175,10 @@ (signed-byte #.vm:word-bits) (foldable flushable movable)) -(defknown (bignum::%signed-digit-to-single-float bignum::%digit-to-single-float) - (bignum-element-type) - (single-float) - (foldable flushable movable)) - -(defknown (bignum::%signed-digit-to-double-float bignum::%digit-to-double-float) - (bignum-element-type) - (double-float) - (foldable flushable movable)) - -(defknown (bignum::%ashl bignum::%ashr) +(defknown (bignum::%ashl bignum::%ashr bignum::%digit-logical-shift-right) (bignum-element-type (mod 32)) bignum-element-type (foldable flushable movable)) - ;;;; Bit-bashing routines.