#3438 Error loading sound.lisp package

[Eric Barth]

(%i3) load(sound);
0 errors, 0 warnings
loadfile: failed to load C:\maxima-5.41.0a\share\maxima\5.41.0a_dirty\share\sound\sound.lisp
-- an error. To debug this try: debugmode(true);

***Here's my system information:
(%i2) wxbuild_info()$
wxMaxima version: 17.10.1
Maxima version: 5.41.0a_dirty
Maxima build date: 2017-10-24 09:10:11
Host type: x86_64-w64-mingw32
System type:
gcc -mno-cygwin -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -D_WIN32 -DENABLE_UNICODE -I/usr/local/include -DDYNAMIC_FFI -I. -L/usr/local/lib -lintl /usr/local/lib/libreadline.dll.a -L/usr/local/lib -ltermcap /usr/local/lib/libavcall.a /usr/local/lib/libcallback.a -luser32 -lws2_32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib -lsigsegv libgnu_cl.a
SAFETY=0 HEAPCODES STANDARD_HEAPCODES GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libiconv 1.13
libreadline 6.0 GNU C 3.4.5 (mingw-vista special r3) PC/386
Lisp implementation type: CLISP
Lisp implementation version: 2.49 (2010-07-07) (built on toshiba [192.168.43.206])

***In the source file sound.lisp, by changing 0 to 0.0 in the initial-element line below, I was able to compile and load successfully in CLISP Maxima, but not in sbcl:

(defun $sound_sample_list (chn)
(when (or (not (integerp chn))
(< chn 0)
(> chn ($sound_sample_channels)))
(merror "sound: incorrect number of channels"))
(let ((n ($sound_sample_size))
(arr (make-array n
:element-type 'flonum
:initial-element 0)))
(declare (type fixnum n)
(type (simple-array fixnum ) arr))
(dotimes (s n)
(setf (aref arr s) (aref $sound_sample 0 s)))
($listarray arr)))

[Mario Rodriguez Riotorto]

The problem regarding 0.0 as initial element was already fixed in the repository. Another fix also allows SBCL to compile the file.