Command-line arguments: Difference between revisions

Content added Content deleted
(→‎{{header|Common Lisp}}: add a function for a univorm way to access arguments)
(→‎{{header|Common Lisp}}: there was already a better solution in Program_name)
Line 258: Line 258:
<lang lisp>(defun argv ()
<lang lisp>(defun argv ()
(or
(or
#+SBCL sb-ext:*posix-argv*
#+clisp (ext:argv)
#+LISPWORKS system:*line-arguments-list*
#+sbcl sb-ext:*posix-argv*
#+CMU (cons "cmucl" extensions:*command-line-words*)
#+clozure (ccl::command-line-arguments)
#+CLISP (cons "clisp" ext:*args*)
#+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))</lang>
nil))</lang>