sys-base: Fix support for CL-LAUNCH.

[lisp] / sys-base.lisp

diff --git a/sys-base.lisp b/sys-base.lisp
index 904c16518db7c8ac1d7623ac9af5a9a7f54ee1a4..b852eb3883d96dd9e71be03065d2108f5e449da3 100644 (file)
--- a/sys-base.lisp
+++ b/sys-base.lisp
@@ -31,7 +31,7 @@ (defpackage #:runlisp
 (defpackage #:mdw.sys-base
   (:use #:common-lisp #:runlisp)
   (:export #:exit #:hard-exit #:*program-name* #:*command-line*
 (defpackage #:mdw.sys-base
   (:use #:common-lisp #:runlisp)
   (:export #:exit #:hard-exit #:*program-name* #:*command-line*

-          set-command-line-arguments)
+          #:set-command-line-arguments)

   (:import-from #:runlisp #:*raw-command-line* #:*command-line* #:exit))
 (in-package #:mdw.sys-base)
 
   (:import-from #:runlisp #:*raw-command-line* #:*command-line* #:exit))
 (in-package #:mdw.sys-base)
 


@@ -41,7 +41,7 @@ (defvar *program-name*)
 
 (defun set-command-line-arguments ()
   (setf *raw-command-line*
 
 (defun set-command-line-arguments ()
   (setf *raw-command-line*

-       (or (when (member :cl-launched *features*)
+       (or (when (member :cl-launch *features*)

              (let* ((cll-package (find-package :cl-launch))
                     (name (funcall (intern "GETENV" cll-package)
                                    "CL_LAUNCH_FILE"))
              (let* ((cll-package (find-package :cl-launch))
                     (name (funcall (intern "GETENV" cll-package)
                                    "CL_LAUNCH_FILE"))