Sun May 24 16:42:40 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Clozure CL Cmd line args for with-app
diff -rN -u old-qt.core/src/application.lisp new-qt.core/src/application.lisp
--- old-qt.core/src/application.lisp	2014-11-16 19:00:39.000000000 +0100
+++ new-qt.core/src/application.lisp	2014-11-16 19:00:39.000000000 +0100
@@ -24,7 +24,8 @@
   (defun ensure-app (&optional 
                      (application 'application)
                      (args #+sbcl sb-ext:*posix-argv*
-                           #-sbcl (list (lisp-implementation-type))))
+                           #+ccl  ccl:*command-line-argument-list*
+                           #-(or sbcl ccl) (list (lisp-implementation-type))))
     "Constructs the global application object, when there is none,
 with the command line arguments ARGS.