Remove multiplication by 2 when calculating how much space to allocat…

…e in decode-mp3-file.
ahefner · Dec 1, 2015 · cce4588 · cce4588
1 parent f8a4d53
commit cce4588
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mpg123.lisp b/mpg123.lisp
@@ -913,7 +913,7 @@ artist, album, year, comment, tack, and genre as a property list."
              (mpg123-format handle rate 2 MPG123_ENC_UNSIGNED_16)
              (mpg123-scan handle)
              (let* ((length (* channels (mpg123-length handle)))
-                    (buffer (make-array (* 2 length) :element-type '(signed-byte 16))))
+                    (buffer (make-array length :element-type '(signed-byte 16))))
                (with-foreign-objects ((nread 'size_t)
                                       (cbuffer :short 16384))
                  (loop as err = (mpg123-read handle cbuffer 32768 nread)