Skip to content

Commit 9e11c58

Browse files
committed
anglep: inline radians->int16 operation
RADIANS->INT16 declares, that the argument is of the type ANGLE. Some implementations when declared put check-type, and the type ANGLE is declared as (SATISFIES ANGLEP). Then, ANGLEP called RADIANS->INT16 internally what lead to infinite recursion.
1 parent ad7b404 commit 9e11c58

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

dependent.lisp

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -387,7 +387,9 @@
387387

388388
(defun anglep (x)
389389
(and (typep x 'real)
390-
(<= (* -360 64) (radians->int16 x) (* 360 64)))))
390+
(<= (* -360 64)
391+
(the int16 (round x #.(float (/ pi 180.0s0 64.0s0) 0.0s0)))
392+
(* 360 64)))))
391393

392394

393395
;;-----------------------------------------------------------------------------

0 commit comments

Comments
 (0)