From 61c21a03a39727337729fc6bccae0f856271a61e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 17 Nov 2008 05:59:14 +0000 Subject: * lisp/core.lisp.in (|getOptionValue|): Make second argument optional. * interp/sys-driver.boot (initializeGlobalState): Set $compileExportsOnly. * interp/lisplib.boot (compDefineExports): New. * interp/define.boot (skipCategoryPackage?): New. (compDefineCategory1): Use it. (compDefineFunctor): Don't compile to NRLIB if interested only in exports. (compDefineFunctor1): Honor $compileExportsOnly. * interp/sys-macros.lisp (|withOutputFile|): New. * interp/sys-utility.boot (quoteForm): Likewise. --- src/lisp/core.lisp.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/lisp') diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index af3f27d0..a030755a 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -344,8 +344,8 @@ (|Option| option)))) ;; Returns the value specified for OPTION. Otherwise, return nil -(defun |getOptionValue| (opt options) - (let ((val (assoc opt options))) +(defun |getOptionValue| (opt &optional (options (|%systemOptions|))) + (let ((val (assoc (|Option| opt) options))) (cond (val (cdr val)) (t nil)))) -- cgit v1.2.3