From 36abadaae83dc9b9e2d7e55c5739d6edad7a20b2 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Fri, 29 Aug 2014 12:23:14 -0400 Subject: [PATCH] UIOP: use exported symbol ccl:*command-line-argument-list* instead of ccl::command-line-arguments. --- uiop/image.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/uiop/image.lisp b/uiop/image.lisp index 6cbfd6138..ff40573b3 100644 --- a/uiop/image.lisp +++ b/uiop/image.lisp @@ -227,7 +227,7 @@ depending on whether *LISP-INTERACTION* is set, enter debugger or die" #+abcl ext:*command-line-argument-list* ; Use 1.0.0 or later! #+allegro (sys:command-line-arguments) ; default: :application t #+clisp (coerce (ext:argv) 'list) - #+clozure (ccl::command-line-arguments) + #+clozure ccl:*command-line-argument-list* #+(or cmu scl) extensions:*command-line-strings* #+ecl (loop :for i :from 0 :below (si:argc) :collect (si:argv i)) #+gcl si:*command-args* -- GitLab