From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 1 Apr 2013 15:25:51 +0000 (+0100)
Subject: cl-fringe.lisp: Fix the `cl-launch' machinery.
X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/commitdiff_plain/bfd7a9c8ba7b62d877115ed73b6f6876b44b3a9f

cl-fringe.lisp: Fix the `cl-launch' machinery.

Now it's a proper citizen.
---

diff --git a/cl-fringe.lisp b/cl-fringe.lisp
index febdada..161240b 100644
--- a/cl-fringe.lisp
+++ b/cl-fringe.lisp
@@ -119,11 +119,10 @@
     0))
 
 #+cl-launch
-(defun launch ()
-  (cl-launch:quit (main (or (cl-launch:getenv "CL_LAUNCH_FILE")
-			    (namestring *load-pathname*)
-			    "<unknown>")
-			cl-launch:*arguments*)))
+(cl-launch:quit (main (pathname-name (or (cl-launch:getenv "CL_LAUNCH_FILE")
+					 *load-pathname*
+					 "<unknown>"))
+		      cl-launch:*arguments*))
 
 #+(and (not cl-launch) ecl)
 (ext:quit (main (ext:argv 0)