From 1f1b7f0209b3a07293afd0540c0d51d56f3a028f Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Mon, 12 Dec 2022 20:54:47 +0200 Subject: Lisp: fix command line processing --- gcd.lisp | 10 ++++------ 1 file 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 -- cgit v1.2.3