From d0754e55e97e5ae7c47a667a8580ca021174918d Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 18 Nov 2009 11:57:17 +0000 Subject: [PATCH] sys-base: Fix support for CL-LAUNCH. Firstly, I got the feature wrong. Secondly, fix the `defpackage' form for `set-command-line-arguments'. --- sys-base.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sys-base.lisp b/sys-base.lisp index 904c165..b852eb3 100644 --- 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")) -- 2.11.0