RosettaCodeData/Task/Function-definition/TXR/function-definition-2.txr

3 lines
72 B
Plaintext

@(do (defun mult (a b) (* a b))
(format t "3 * 4 = ~a\n" (* 3 4)))