The call to make-array to make-sharable-array on Lispworks in broken.

[Yehouda]

cl-png/image.lisp

Line 131 in 5790e3e

(apply #'make-array

It currentll passes the :allocation :static kwyord before the arguments, including the dimensions required argument. That is the wrong syntax, the required argumnet must come first. I fixed it in my copy by chaging to:

(apply #'make-array
         (car args)
	 #+(or lispworks allegro) :allocation
	 #+lispworks :static #+allegro :static-reclaimable
	 (cdr args))

That is working on LispWorks. Probably on Allegro too, but I didn't check.

Found by running the tests of the quicklisp system "dataloader.test".

[ljosa]

Good catch! Are you up for putting together a pull request?

[Yehouda]

No.
I test code that I load by quicklisp, and don;t work on github. I come here (github) only to hassle people.