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