From a7a36e273fe665b67d2d54715a6d586dba8b773f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 24 Feb 1991 19:59:14 +0000
Subject: [PATCH] Fixed some loop syntax and typos and stuff.

---
 compiler/pack.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 09e9a2464..620109036 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.30 1991/02/24 16:20:00 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.31 1991/02/24 19:59:14 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1047,8 +1047,8 @@
 	 (size (finite-sb-current-size sb)))
     (loop for i from offset
           repeat (sc-element-size sc)
-          any (or (>= i size)
-		  (load-tn-offset-conflicts-in-sb op i)))))
+          thereis (or (>= i size)
+		      (load-tn-offset-conflicts-in-sb op sb i)))))
 
 
 ;;; Find-Load-TN-Target  --  Internal
@@ -1079,7 +1079,7 @@
 (defun select-load-tn-location (op sc)
   (declare (type tn-ref op) (type sc sc))
   (dolist (loc (sc-locations sc) nil)
-    (unless (load-tn-conflicts-in-sb op sc loc)
+    (unless (load-tn-conflicts-in-sc op sc loc)
       (return loc))))
 
 
-- 
GitLab