hello.lisp 347 Bytes
Newer Older
1
(defpackage :hello
2
  (:use :cl :uiop)
3
  (:export #:main #:entry-point))
4 5 6 7 8 9

(in-package :hello)

(defun main (&rest arguments)
  (format t "hello, world~%")
  (when arguments
10 11 12
    (format t "You passed ~D arguments:~%~{  ~S~%~}" (length arguments) arguments))
  ;; Return success!
  t)
13 14

(defun entry-point ()
15
  (apply 'main *command-line-arguments*))