From 13e142c18a0437ee1c2bd66966dd2cdf3ada7a13 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 6 Oct 1990 18:22:19 +0000 Subject: [PATCH] Strengthened the type on SSET-ELEMENT-NUMBER to (or index null) so that we don't do generic arithmetic --- compiler/sset.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/sset.lisp b/compiler/sset.lisp index a703973bc..a79d3c8f2 100644 --- a/compiler/sset.lisp +++ b/compiler/sset.lisp @@ -23,7 +23,7 @@ ;;; operations.) ;;; (defstruct sset-element - (number nil :type (or unsigned-byte null))) + (number nil :type (or index null))) (defstruct (sset (:constructor make-sset ()) -- GitLab