;;; -*- Mode:LISP; Package:SIM; Base:10; Readtable:CL -*-

(defconst %%k-min-args (byte 8 0))
(defconst %%k-max-args (byte 8 8))
(defconst %%k-rest-p (byte 1 16.))