Add a missing opaque-identity

This commit is contained in:
Douglas Katzman 2026-06-05 13:06:43 -04:00
parent f3d711cd2a
commit 3efad92f20

View file

@ -511,4 +511,4 @@
(setf (sb-sys:sap-ref-word (car restorer) 0) (cdr restorer)))
(assert (eql *got-arg* 0d0))
(assert (= result 42.0d0))
(assert (eql (tan 0d0) 0d0))))) ; back to normal
(assert (eql (tan (opaque-identity 0d0)) 0d0))))) ; back to normal