(defun main () (print "Welcome to afact
!")
(print (uiop:command-line-arguments))
(let ((arg (car (uiop:command-line-arguments))))
(if arg (print (my-fact:afact (parse-integer arg)))
(print "Please call like
$ ./shfact -- 3
Non command line arguments could be put before the --
")))
(terpri)
(uiop:quit))
