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