diff --git a/code/old-loop.lisp b/code/old-loop.lisp index bbe998b6af0d87d1eab80f0e02d24c81f5ab2b29..44531dd4d70abbc51496470e8765e6d4cfac88e5 100644 --- a/code/old-loop.lisp +++ b/code/old-loop.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.3 1990/11/23 08:37:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/old-loop.lisp,v 1.4 1990/11/25 08:09:00 wlott Exp $ ;;; ;;; Loop facility, written by William Lott. ;;; @@ -611,7 +611,8 @@ ((loop-keyword-p clause "SYMBOL" "PRESENT-SYMBOL" "EXTERNAL-SYMBOL" "SYMBOLS" "PRESENT-SYMBOLS" "EXTERNAL-SYMBOLS") (let ((package - (if (preposition-p "IN" "OF") + (if (or (preposition-p "IN") + (preposition-p "OF")) (pop *remaining-stuff*) '*package*)) (iterator (gensym (format nil "~A-ITERATOR-" name)))