sys-base: Fix support for CL-LAUNCH.

[lisp] / sys-base.lisp

diff --git a/sys-base.lisp b/sys-base.lisp
index 904c165..b852eb3 100644 (file)
--- a/sys-base.lisp
+++ b/sys-base.lisp
@@ -31,7 +31,7 @@
 (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)
 
@@ -41,7 +41,7 @@
 
 (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"))