Commits

Robert Smith committed 5abc25c

add type declaration to ONES

Comments (0)

Files changed (1)

 
 (declaim (inline ones))
 (defun ones (n)
+  (declare (type unsigned-byte n))
   (1- (ash 1 n)))
 
 (defun static-fields-p (fields)