March 2005 - cl-gd-devel@lists.common-lisp.net

[cl-gd-devel] New version 0.4.6
by Edi Weitz 31 Mar '05

31 Mar '05

Changelog: Version 0.4.6 2005-03-31 Fixed typo in WITH-IMAGE* (thanks to Peter Barabas) Handle CMUCL search lists correctly (thanks to Hans Hübner) Added -lc option to linker call and included makefile (thanks to Hans Hübner) Download: <http://weitz.de/files/cl-gd.tar.gz> Cheers, Edi.

1 0

[cl-gd-devel] Re: CL-GD very minor typo
by Edi Weitz 20 Mar '05

20 Mar '05

Hi! On Sun, 20 Mar 2005 21:39:57 +0100, Peter BARABAS <z0d(a)artifact.hu> wrote: > I'd like to report a simple typo in the latest CL-GD. It's in > images.lisp: > > (defmacro with-image* ((width height &optional true-color) &body body) > "Creates an image with size WIDTH x HEIGHT and executes BODY with > the image bound to *DEFAULT-IMAGE*. If TRUE-COLOR is true, creates a > true color image. The image is guaranteed to be destroyed before this > macro exits." > `(with-image (*default-image* ,width, height ,true-color) > ,@body)) > > Note the placement of the comma before "height". Thanks. That's certainly a typo and will be fixed in the next release. > I know that the Lisp implementations are permissive (or the > HyperSpec?). I'm pretty sure this is legal Common Lisp although it was not what I intended... :) Cheers, Edi.

1 0

[cl-gd-devel] New version 0.4.5 (Was: cl-gd:make-stream-fn)
by Edi Weitz 16 Mar '05

16 Mar '05

[Cc to mailing list] On Tue, 15 Mar 2005 19:49:56 +0100, "Walter C. Pelissero" <walter(a)pelissero.de> wrote: > I'm trying your cl-gd with PAServe and stumbled in a minor glitch in > MAKE-STREAM-FN. The COND first checks for: > > (subtypep (stream-element-type stream) '(unsigned-byte 8)) > > and then > > (subtypep (stream-element-type stream) 'character) > > Which both fail miserably at least on CMUCL with *HTML-STREAM* as > STREAM. The reason is that: > > (stream-element-type *HTML-STREAM*) => '(OR CHARACTER (UNSIGNED-BYTE 8)) > > (subtypep '(or character (unsigned-byte 8)) 'character) => NIL T > > (subtypep '(or character (unsigned-byte 8)) '(unsigned-byte 8)) => NIL T > > Apparently changing the order of the operands, makes the COND work > as expected, although, as far as I understand, the semantic of > subtypep isn't respected. No, I think CMUCL is right. This was a thinko in my code. Thanks for the report, I've uploaded a new version which fixes this. Cheers, Edi.

1 0

[cl-gd-devel] clisp ffi
by Carlos Ungil 09 Mar '05

09 Mar '05

Hello, I've added support for clisp. It's only tested on Solaris, and not very much. The included test suite runs (almost) successfully, but I'm sure there will be bugs in the functionality not covered by these tests. Test 17 (ellipse filled in with tiles) fails, but it fails in the same way in SBCL so that might a problem with Solaris (or with my installation). Test 16 takes ages to complete, but I don't think I will optimize the code (as long as it is fast enough generating simple charts). I had no previous experience with clisp's FFI, so I'm sure there will be things that could have been done better, in particular about performance. The modified files can be found here http://ungil.com/cl-gd-0.4.2-clisp.tgz I've discovered as well some bugs, that I detail at the end of the message (only the first one is really relevant). Cheers, Carlos * [ colors-aux ] (defun resolve-c-color (color image) ......... ((or vector list) (setf (current-style image) (cdr color)) ;;; the first element of the list is dropped, that cdr shouldn't exist +styled+) ......... * [ gd-uffi ] (def-struct gd-image ......... (aal-x1 :int) (aal-y1 :int) (aal-x2 :int) (aal-y1 :int) ;;; this should be aal-y2, right? .......... * [ cl-gd-test ] (compare-files file) ;; the check is missing in test-012

2 3