From: Mika P. <sal...@mb...> - 2006-04-19 11:25:37
|
It has been a pleasure using sbcl. However, this came up recently. This expression shows a repeating bug in both latest 0.9.11 and earlier releases. Same thing if COS is substituted by SIN or TAN. The compiled function can not be funcalled because of missing trigonometric function. (compile nil (lambda () (COS (TAN (ROUND 0))))) ; --> COERCE ; ==> ; (SB-KERNEL:%COS (COERCE SB-C::X 'DOUBLE-FLOAT)) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; The function SB-KERNEL:%COS is undefined. ; (Ubuntu 5.10 Breezy x86 with fresh sbcl 0.9.11 x86 binary downloaded) Thank you, Mika |
From: Nikodemus S. <nik...@ra...> - 2006-04-19 14:15:47
|
"Mika Pihlajamaki" <sal...@mb...> writes: > This expression shows a repeating bug in both latest 0.9.11 and earlier > releases. Same thing if COS is substituted by SIN or TAN. The compiled > function can not be funcalled because of missing trigonometric function. > > (compile nil (lambda () (COS (TAN (ROUND 0))))) Fixed in 0.9.11.40, thanks for the report. As anoncvs is still down, if you need an immediate fix then evaluating the following should do the trick: (in-package :sb-kernel) (defun %cos (x) (%cos x)) (defun %sin (x) (%sin x)) (defun %tan (x) (%tan x)) Cheers, -- Nikodemus Schemer: "Buddha is small, clean, and serious." Lispnik: "Buddha is big, has hairy armpits, and laughs." |
From: Yaroslav K. <kav...@tu...> - 2006-04-22 12:22:04
|
Nikodemus Siivola wrote: > "Mika Pihlajamaki" <sal...@mb...> writes: > > >> This expression shows a repeating bug in both latest 0.9.11 and earlier >> releases. Same thing if COS is substituted by SIN or TAN. The compiled >> function can not be funcalled because of missing trigonometric function. >> >> (compile nil (lambda () (COS (TAN (ROUND 0))))) >> > > Fixed in 0.9.11.40, thanks for the report. > > As anoncvs is still down, if you need an immediate fix then evaluating > the following should do the trick: > > (in-package :sb-kernel) > (defun %cos (x) (%cos x)) > (defun %sin (x) (%sin x)) > (defun %tan (x) (%tan x)) > And %ASINH, %ACOSH, %TANH, %ATANH Thanks! -- WBR, Yaroslav Kavenchuk. |