From 26597a4659ba77213e0b4519d63b97a26a470e7d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 25 Jun 1991 19:41:37 +0000 Subject: [PATCH] Check to make sure TN is not :MORE *before* checking to see if it's offset is non-NIL. --- compiler/pack.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/pack.lisp b/compiler/pack.lisp index 9b6c0f551..912cf7465 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.36 1991/04/09 19:36:38 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.37 1991/06/25 19:41:37 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1468,7 +1468,7 @@ ((minusp i)) (declare (fixnum i)) (let ((tn (svref ltns i))) - (unless (or (null tn) (tn-offset tn) (eq tn :more)) + (unless (or (null tn) (eq tn :more) (tn-offset tn)) (pack-tn tn nil)))))) ;; ;; Pack any leftover normal TNs. This is to deal with :MORE TNs, which -- GitLab