diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-17 05:59:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-17 05:59:14 +0000 |
| commit | 61c21a03a39727337729fc6bccae0f856271a61e (patch) | |
| tree | 7096bec4e7182c3782269c158b1fc00794ce4861 /src/lisp | |
| parent | 5ab5655d4467eddbcef288bde816fe111b901948 (diff) | |
| download | open-axiom-61c21a03a39727337729fc6bccae0f856271a61e.tar.gz | |
* 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.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 2 insertions, 2 deletions
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)))) |