From 292d2dd4c82ce7060304a81935b74c3cc334728f Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 5 May 2016 16:18:50 +0100
Subject: [PATCH] fix sharp-star type declaration

from Eric Marsden.  Untestable really, because non-fixnum
array dimensions breach array-dimension-limit
---
 src/code/sharpm.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index 5d5ea85d3..4a6f0164f 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -48,7 +48,7 @@
 
 (defun sharp-star (stream ignore numarg)
   (declare (ignore ignore))
-  (declare (type (or null fixnum) numarg))
+  (declare (type (or null integer) numarg))
   (binding* (((buffer escape-appearedp) (read-extended-token stream))
              (input-len (token-buf-fill-ptr buffer))
              (bstring (token-buf-string buffer)))
-- 
2.11.4.GIT