List of the
Definition:
(defconst *atc-op-type1-type2-fns* (atc-op-type1-type2-fns-gen *nonchar-integer-types*))
Function:
(defun atc-op-type1-type2-fns-gen-aux-aux (type1 type2 ops) (cond ((endp ops) nil) (t (cons (pack (car ops) '- (type-kind type1) '- (type-kind type2)) (atc-op-type1-type2-fns-gen-aux-aux type1 type2 (cdr ops))))))
Function:
(defun atc-op-type1-type2-fns-gen-aux (type1 type2s) (cond ((endp type2s) nil) (t (append (atc-op-type1-type2-fns-gen-aux-aux type1 (car type2s) '(add sub mul div rem shl shr lt gt le ge eq ne bitand bitxor bitior)) (atc-op-type1-type2-fns-gen-aux type1 (cdr type2s))))))
Function:
(defun atc-op-type1-type2-fns-gen (type1s) (cond ((endp type1s) nil) (t (append (atc-op-type1-type2-fns-gen-aux (car type1s) *nonchar-integer-types*) (atc-op-type1-type2-fns-gen (cdr type1s))))))