summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2022-12-12 20:54:47 +0200
committerIgor Pashev <pashev.igor@gmail.com>2022-12-12 20:54:47 +0200
commit1f1b7f0209b3a07293afd0540c0d51d56f3a028f (patch)
treed6d685a0bbce5da2d71f6e2780f0db7053993e09
parent64abe133c1880bc0dd5bce5bc67c94bf2f083467 (diff)
downloadgcd-1f1b7f0209b3a07293afd0540c0d51d56f3a028f.tar.gz
Lisp: fix command line processingHEADmaster
-rw-r--r--gcd.lisp10
1 files changed, 4 insertions, 6 deletions
diff --git a/gcd.lisp b/gcd.lisp
index 79852a9..8899491 100644
--- a/gcd.lisp
+++ b/gcd.lisp
@@ -15,15 +15,13 @@
(defun program-args ()
(or
#+CLISP *args*
- #+ECL (ext:command-args)
- #+GCL si::*command-args*
- #+SBCL *posix-argv*
+ #+ECL (cdr ext:*unprocessed-ecl-command-args*)
+ #+GCL (cdr si::*command-args*)
+ #+SBCL (cdr *posix-argv*)
nil))
(defun numbers ()
- (remove nil
- (map 'list (lambda (x) (parse-integer x :junk-allowed t))
- (program-args))))
+ (mapcar #'parse-integer (program-args)))
(let ((ns (numbers)))
(when ns