diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp index 07f51881814643aed28aebb936289765aaeb21b3..b7201a434e3c1c8a7373a79ad8f1e319718bba91 100644 --- a/code/bit-bash.lisp +++ b/code/bit-bash.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.9 1991/04/13 21:04:47 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.10 1991/04/23 01:24:29 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -364,12 +364,12 @@ (unless (zerop final-bits) (let ((value (if (> (+ final-bits src-shift) unit-bits) - (shift-towards-start next src-shift) (progn (get-next-src) (32bit-logical-or (shift-towards-end next (- src-shift)) - (shift-towards-start prev src-shift))))) + (shift-towards-start prev src-shift))) + (shift-towards-start next src-shift))) (mask (start-mask final-bits)) (orig (funcall dst-ref-fn dst dst-word-offset))) (declare (type unit mask orig value))