[cl-pdf-devel] cl-pdf not compiling with cmucl 19d

[kroegerlistas at pedrokroeger.net]

Hi,

I get the following error when compiling cl-pdf with cmucl 19d on
debian linux etch:

Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
   NIL is not of type KERNEL:CTYPE
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT-REQUEST] Abort handling SLIME request.
  1: [ABORT] Return to Top-Level.

Backtrace:
  0: (KERNEL::TYPE-UNION2 2 NIL #<NUMERIC-TYPE (DOUBLE-DOUBLE-FLOAT 1.0w0 1.0w0)>)[:EXTERNAL]
  1: (KERNEL::SIMPLIFY-UNIONS (NIL #<NUMERIC-TYPE (DOUBLE-DOUBLE-FLOAT 1.0w0 1.0w0)> #<NUMERIC-TYPE (DOUBLE-DOUBLE-FLOAT -1.0w0 -1.0w0)>))
  2: (KERNEL::%TYPE-UNION (NIL #<NUMERIC-TYPE (DOUBLE-DOUBLE-FLOAT 1.0w0 1.0w0)> #<NUMERIC-TYPE (DOUBLE-DOUBLE-FLOAT -1.0w0 -1.0w0)>))

I could narrow the problem to the pdf-geom.lisp file, around line 156:

(defun angle-3points (pt1 pt2 pt3)
  (let ((ang (- (angle pt1 pt3) (angle pt1 pt2))))
    (if	(or (> ang pi) (<= ang (- pi)))
        (- ang (* (signum ang) +2pi+))
                  -----------
        ang)))


The form underlined above seems to be causing the problem, but I don't
know how to solve it.

Pedro Kroger