From 2f1c830c85167979fe7f05553c95428d991e839e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 13 Jan 1991 21:09:35 +0000
Subject: [PATCH] Added stronger declaration on the SC-ALIGNMENT.

---
 compiler/vop.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/vop.lisp b/compiler/vop.lisp
index c91b9fc25..18e6b0952 100644
--- a/compiler/vop.lisp
+++ b/compiler/vop.lisp
@@ -954,10 +954,9 @@
   ;;
   ;; True if this SC or one of its alternates in in the NUMBER-STACK SB.
   (number-stack-p nil :type boolean)
-
   ;;
   ;; Alignment restriction.  The offset must be an even multiple of this.
-  (alignment 1 :type (integer 1)))
+  (alignment 1 :type (and index (integer 1))))
 
 (defprinter sc
   name)
-- 
GitLab