[cl-typesetting-devel] Weird code pieces

[Marc Battyani]

Dmitri Ivanov wrote:


> Hello,

Hi Dmitri,

> Just grabbed the latest files and have some questions.
>
> cl-pdf/defpackage.lisp
> ---------------------------
> ...
>    #:font-name #:full-name #:family-name #:weight #:font-bbox #:versiondf
> #:notice #:encoding-scheme
> ...
> What is #:versiondf about?

A typo probably.

> cl-pdf/pdf-base.lisp
> -----------------------
> (defgeneric get-rgb (color)
>  ...
>  (:method ((color vector))
>   #+lispworks
>   (case (aref color 0)  ; convert from (color:make-rgb ...) or other model
>     ((numberp (aref color 0)) (values (aref color 0)(aref color 1)(aref
> color 2)))
>     ^^^^^^^^^^
>     (:RGB (values (aref color 1)(aref color 2)(aref color 3)))
>     (:GRAY (values (aref color 1)(aref color 1)(aref color 1))))
>   #-lispworks
>   (values (aref color 0)(aref color 1)(aref color 2)))
>
> What does (numberp ...) inside case mean?

A bug ;-)

Corrected

Thanks,

Marc
[Posting this from an Oslo Internet café :)]