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.gui/src/application.lisp new-qt.gui/src/application.lisp
--- old-qt.gui/src/application.lisp 2014-10-27 10:00:40.000000000 +0100
+++ new-qt.gui/src/application.lisp 2014-10-27 10:00:40.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.