hello.lisp 329 Bytes
Newer Older
1 2
(defpackage :hello
  (:use :cl :asdf/driver)
3
  (:export #:main #:entry-point))
4 5 6 7 8 9 10

(in-package :hello)

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

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