From be6d1fee0c8cee576a17175a42f85a5bc9875d99 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 16 Nov 1991 16:03:02 +0000 Subject: [PATCH] Deleted some confusing dead code. --- compiler/pack.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 0d13450e8..86cd735b8 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.43 1991/11/05 17:36:08 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.44 1991/11/16 16:03:02 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1324,9 +1324,9 @@ ((null current-scs) (unless allowed (no-load-scs-allowed-by-primitive-type-error op)) - (dolist (sc allowed (failed-to-pack-load-tn-error allowed op)) - (when (unpack-for-load-tn sc op) (return))) - (setq current-scs scs allowed ())) + (dolist (sc allowed) + (unpack-for-load-tn sc op)) + (failed-to-pack-load-tn-error allowed op)) (t (let* ((sc (svref (backend-sc-numbers *backend*) (pop current-scs))) (target (find-load-tn-target op sc))) -- GitLab