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