((/rtl/rel8/lib/rom-helpers.lisp::natp (nil nil nil (and) nil nil nil) (nil nil (integerp) (<=) nil nil nil) ((x x) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel8/lib/rom-helpers.lisp::check-array (nil nil nil nil (if) nil nil) ((t) nil (zp) (and) nil nil nil) ((dim1) nil nil (bvecp) nil (recursive-call) nil) ((dim2 name a dim2) nil (1-) nil (aref1) nil nil) ((name a dim1) nil (1-) nil nil nil nil) ((dim1) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))