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