Skip to content

Commit

Permalink
fix: use cl:nil
Browse files Browse the repository at this point in the history
macro if taking nil as not cl:nil and including signed checks in unsigned types
  • Loading branch information
herbertjones committed Dec 4, 2023
1 parent de2d857 commit 9a8d5c1
Showing 1 changed file with 11 additions and 11 deletions.
22 changes: 11 additions & 11 deletions library/math/integral.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -248,17 +248,17 @@ are floored and truncated division, respectively."
(lisp ,type (a) (cl:isqrt a)))
`(lisp ,type (a) (cl:isqrt a)))))))

(%define-integral-native Integer t)
(%define-integral-native I8 t)
(%define-integral-native I16 t)
(%define-integral-native I32 t)
(%define-integral-native I64 t)
(%define-integral-native IFix t)
(%define-integral-native U8 nil)
(%define-integral-native U16 nil)
(%define-integral-native U32 nil)
(%define-integral-native U64 nil)
(%define-integral-native UFix nil)
(%define-integral-native Integer cl:t)
(%define-integral-native I8 cl:t)
(%define-integral-native I16 cl:t)
(%define-integral-native I32 cl:t)
(%define-integral-native I64 cl:t)
(%define-integral-native IFix cl:t)
(%define-integral-native U8 cl:nil)
(%define-integral-native U16 cl:nil)
(%define-integral-native U32 cl:nil)
(%define-integral-native U64 cl:nil)
(%define-integral-native UFix cl:nil)

(cl:defmacro %define-native-expt (type)
(cl:let ((^ (cl:intern (cl:concatenate 'cl:string (cl:symbol-name type) "-^")))
Expand Down

0 comments on commit 9a8d5c1

Please sign in to comment.