13 lines
386 B
Common Lisp
13 lines
386 B
Common Lisp
(defun argv ()
|
|
(or
|
|
#+clisp (ext:argv)
|
|
#+sbcl sb-ext:*posix-argv*
|
|
#+abcl ext:*command-line-argument-list*
|
|
#+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*
|
|
nil))
|