Robert Smith  committed f5698a3

Add some type declarations to POSITIVEP and friends

  • Participants
  • Parent commits 2c30bf2

Comments (0)

Files changed (1)

File arithmetic.lisp

 (defun positivep (n)
   "Check if N is positive."
+  (declare (type real n))
   (plusp n))
 (defun negativep (n)
   "Check if N is negative."
+  (declare (type real n))
   (minusp n))
 (defun non-negative-p (n)
   "Check if N is non-negative."
+  (declare (type real n))
   (>= n 0))
 (defun non-positive-p (n)
   "Check if N is non-positive."
+  (declare (type real n))
   (<= n 0))
 (defun non-zero-p (n)
   "Check if N is non-zero."
+  (declare (type real n))
   (not (zerop n)))
 (defun integral-length (n &optional (base 10))