公共Lisp等价于Haskell的主函数?

我找到一个 solution . 这有点骗人,但确实管用。我很快会修改它,使之适用于除CLISP之外的CL实现。

#!/bin/sh
#|
exec clisp -q -q $0 $0 ${1+"$@"}
exit
|#

;;; Usage: ./scriptedmain.lisp

(defun main (args)
 (format t "Hello World!~%")
 (quit))

;;; With help from Francois-Rene Rideau
;;; http://tinyurl.com/cli-args
(let ((args
       #+clisp ext:*args*
       #+sbcl sb-ext:*posix-argv*
       #+clozure (ccl::command-line-arguments)
       #+gcl si:*command-args*
       #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
       #+cmu extensions:*command-line-strings*
       #+allegro (sys:command-line-arguments)
       #+lispworks sys:*line-arguments-list*
     ))

  (if (member (pathname-name *load-truename*)
              args
              :test #'(lambda (x y) (search x y :test #'equalp)))
    (main args)))

(eval-when (situation*) ...)

更新 很抱歉,答案很混乱。

我可能错了,但似乎做不到你真正想要的。我会制作一个shell脚本并调用 clisp -i myfile.lisp -x (main) .

是否有任何理由不使其可执行(描述 here )?

P.S.Common Lisp是一种语言 clisp 是其中一个实现。