From 7bee198b1099a1b1b94db32dabedfea537da55d1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 12 Jul 1990 12:42:10 +0000 Subject: [PATCH] Added %DIGIT-LOGICAL-SHIFT-RIGHT. --- compiler/generic/vm-fndb.lisp | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index e449204bd..45cb0844b 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. -- GitLab