Skip to content

Commit f5eb747

Browse files
committed
Fix default value for references structure to silence compiler warning
1 parent 3b0587e commit f5eb747

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/referrers-and-fixup.lisp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@
4848
have seen so far, and a running count ref-id of assigned ids. Nominally
4949
the array size is hinted at the start of restore, but the code allows it
5050
to grow if needed."
51-
(vector (make-array nil) :type simple-vector)
51+
(vector (make-array 0) :type simple-vector)
5252
(ref-id 0 :type fixnum)) ;; ref-ids run from 1 to infinity; they are incf'ed from here
5353

5454
(declaim (inline check-reference))

0 commit comments

Comments
 (0)