List of the
Definition:
(defconst *atc-op-type-fns* (atc-op-type-fns-gen *nonchar-integer-types*))
Function:
(defun atc-op-type-fns-gen-aux (type ops) (cond ((endp ops) nil) (t (cons (pack (car ops) '- (type-kind type)) (atc-op-type-fns-gen-aux type (cdr ops))))))
Function:
(defun atc-op-type-fns-gen (types) (cond ((endp types) nil) (t (append (atc-op-type-fns-gen-aux (car types) '(plus minus bitnot lognot)) (atc-op-type-fns-gen (cdr types))))))