List of the
Definition:
(defconst *atc-type-base-const-fns* (atc-type-base-const-fns-gen *nonchar-integer-types*))
Function:
(defun atc-type-base-const-fns-gen-aux (type bases) (cond ((endp bases) nil) (t (cons (pack (type-kind type) '- (car bases) '-const) (atc-type-base-const-fns-gen-aux type (cdr bases))))))
Function:
(defun atc-type-base-const-fns-gen (types) (cond ((endp types) nil) (t (append (atc-type-base-const-fns-gen-aux (car types) '(dec oct hex)) (atc-type-base-const-fns-gen (cdr types))))))