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