search

slyrus / opticl

An image processing library for Common Lisp
Other
182 stars 35 forks source link

Compiler warning from SBCL 1.3.11 in coerce.lisp #15

Closed robert-strandh closed 7 years ago

robert-strandh commented 7 years ago

Compiling a fresh clone of opticl on SBCL 1.3.11 gives a warning for coerce.lisp like this:

; file: .../Opticl/coerce.lisp ; in: DEFMETHOD COERCE-IMAGE (T (EQL 'GRAY-IMAGE)) ; (SETF (OPTICL:PIXEL OPTICL:GRAY-IMAGE OPTICL::I OPTICL::J) ; (ROUND ; (+ ( OPTICL::R 0.2989) ( OPTICL::G 0.587) ( OPTICL::B 0.114)))) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> MULTIPLE-VALUE-PROG1 PROGN ECASE LET COND IF PROGN LET ; ==> ; (ARRAY-DIMENSION OPTICL:GRAY-IMAGE 2) ; ; caught WARNING: ; The array has dimensions ( ), 2 is too large.

slyrus commented 7 years ago

Thanks for the report. A putative fix has been pushed. Let me know if this works.

robert-strandh commented 7 years ago

The warning is gone now. Thanks!