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

4 lines
76 B
Common Lisp

(defun frobnicate (x)
(declare (type fixnum x))
(the fixnum (+ x 128)))