(defun hello-lisp ()
  (format t "hello-lisp!~%")
  :foo)