RosettaCodeData/Task/Parametric-polymorphism/Common-Lisp/parametric-polymorphism.lisp

3 lines
60 B
Common Lisp

(deftype pair (&key (car 't) (cdr 't))
`(cons ,car ,cdr))