[lispm]

Common Lisp:

    (defun greet (firstname lastname &aux fullname)
      (setf fullname (format nil "~a ~a" firstname lastname))
      (format nil "Hello, ~a" fullname))