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