- (costs (required-argument) :type (simple-array (unsigned-byte 32) (*)))
- (counts (required-argument) :type (simple-array (unsigned-byte 32) (*))))
+ (costs (missing-arg) :type (simple-array (unsigned-byte 32) (*)))
+ (counts (missing-arg) :type (simple-array (unsigned-byte 32) (*))))