RosettaCodeData/Task/Variables/Common-Lisp/variables-9.lisp

4 lines
90 B
Common Lisp

(declaim (ftype (function (fixnum) fixnum) frobnicate))
(defun frobnicate (x)
(+ x 42))