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 (file)
--- 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)