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

[fringe] / cl-fringe.lisp

diff --git a/cl-fringe.lisp b/cl-fringe.lisp
index febdada6eb37a97ded36f89a6950d5971c12ac3b..161240bc8e3f5cd2b9c1da54f6159caabb1d82fd 100644 (file)
--- a/cl-fringe.lisp
+++ b/cl-fringe.lisp
@@ -119,11 +119,10 @@ (defun main (prog args)
     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)