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

[Marc Battyani]

<kroegerlistas at pedrokroeger.net> wrote:
>
> 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.

Have you looked at ang's value? Or printed it in the function?

Maybe somebody using CMUCL can help more.

Marc