# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1721742118 14400
# Node ID 8f8345435007e0d03702f1f5aab32a56700db7ec
# Parent  587e073a6f3167be7e311407fec167803455b68d
Update array constructors to please new SBCL

diff -r 587e073a6f31 -r 8f8345435007 src/main.lisp
--- a/src/main.lisp	Tue Jan 14 20:12:41 2020 -0500
+++ b/src/main.lisp	Tue Jul 23 09:41:58 2024 -0400
@@ -163,6 +163,8 @@
   (loop :for i :from 7 :downto 0
         :collect (ldb (byte 1 i) byte)))
 
+(declaim (inline make-color))
+
 (defun make-color (r g b)
   (make-array 3
     :initial-contents (list r g b)
@@ -202,8 +204,7 @@
   (let* ((width (read-header-number stream))
          (height (read-header-number stream))
          (bit-depth (read-header-number stream))
-         (data (make-array (list width height)
-                 :element-type `(integer 0 ,bit-depth)))
+         (data (make-array (list width height) :element-type 'fixnum))
          (reader (if binary? #'read-byte #'read-raster-number)))
     (dotimes (y height)
       (dotimes (x width)
@@ -215,7 +216,8 @@
          (height (read-header-number stream))
          (bit-depth (read-header-number stream))
          (data (make-array (list width height)
-                 :element-type `(simple-array (integer 0 ,bit-depth) (3))))
+                 :element-type '(simple-array fixnum (3))
+                 :initial-element (make-color 0 0 0)))
          (reader (if binary? #'read-byte #'read-raster-number)))
     (dotimes (y height)
       (dotimes (x width)