[cl-typesetting-devel] Weird code pieces

[Dmitri Ivanov]

Hello,

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?

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?
--
Sincerely,
Dmitri Ivanov
lisp.ystok.ru