X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/blobdiff_plain/9587c4d43e46ab1c7399f93b64015c7ddaa497d1..HEAD:/cl-fringe.lisp 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*) - "") - cl-launch:*arguments*))) +(cl-launch:quit (main (pathname-name (or (cl-launch:getenv "CL_LAUNCH_FILE") + *load-pathname* + "")) + cl-launch:*arguments*)) #+(and (not cl-launch) ecl) (ext:quit (main (ext:argv 0)