From f81424b3d85e01bd586d973b40abdff08f81129e Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Tue, 9 Sep 2003 12:33:39 +0000 Subject: [PATCH] * src/code/numbers.lisp (logior, logxor, logand, logeqv): Add (the integer ...). Found by Paul Dietz. --- code/numbers.lisp | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/code/numbers.lisp b/code/numbers.lisp index 2c5054090..d03d17416 100644 --- a/code/numbers.lisp +++ b/code/numbers.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/numbers.lisp,v 1.54 2003/09/05 11:25:28 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.55 2003/09/09 12:33:39 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1040,7 +1040,8 @@ "Returns the bit-wise or of its arguments. Args must be integers." (declare (list integers)) (if integers - (do ((result (pop integers) (logior result (pop integers)))) + (do ((result (the integer (pop integers)) + (logior result (pop integers)))) ((null integers) result)) 0)) @@ -1048,7 +1049,8 @@ "Returns the bit-wise exclusive or of its arguments. Args must be integers." (declare (list integers)) (if integers - (do ((result (pop integers) (logxor result (pop integers)))) + (do ((result (the integer (pop integers)) + (logxor result (pop integers)))) ((null integers) result)) 0)) @@ -1056,7 +1058,8 @@ "Returns the bit-wise and of its arguments. Args must be integers." (declare (list integers)) (if integers - (do ((result (pop integers) (logand result (pop integers)))) + (do ((result (the integer (pop integers)) + (logand result (pop integers)))) ((null integers) result)) -1)) @@ -1064,7 +1067,8 @@ "Returns the bit-wise equivalence of its arguments. Args must be integers." (declare (list integers)) (if integers - (do ((result (pop integers) (logeqv result (pop integers)))) + (do ((result (the integer (pop integers)) + (logeqv result (pop integers)))) ((null integers) result)) -1)) -- GitLab