#53 Example from 'Parameteric Tube Plots' failed,

[Anonymous]

1) -> t1(t:SF):SF == 4/(2-sin(3*t))*cos(2*t)
Function declaration t1 : DoubleFloat -> DoubleFloat has been added
to workspace.
Type: Void
(2) -> t2(t:SF):SF == 4/(2-sin(3*t))*sin(2*t)
Function declaration t2 : DoubleFloat -> DoubleFloat has been added
to workspace.
Type: Void
(3) -> t3(t:SF):SF == 4/(2-sin(3*t))*cos(3*t)
Function declaration t3 : DoubleFloat -> DoubleFloat has been added
to workspace.
Type: Void
(4) -> draw(curve(t1,t2,t3),0..2*%pi,tubeRadius == .2)
Compiling function t1 with type DoubleFloat -> DoubleFloat
; in: LAMBDA NIL
; (SB-INT:NAMED-LAMBDA BOOT::|*1;t1;1;frame767| (BOOT::|#1| BOOT::|envArg|)
; (BLOCK BOOT::|*1;t1;1;frame767|
; (BOOT::SPADCALL
; (BOOT::SPADCALL 4.0d0 (BOOT::SPADCALL 2.0d0 # #)
; (BOOT::|getShellEntry|
....
....
; compilation unit finished
; caught 2 WARNING conditions
; caught 1 STYLE-WARNING condition

>> System error:
The variable |$NaNvalue| is unbound.

[Gabriel Dos Reis]

Thanks for the report.

This is now fixed for all supported Lisp systems.