diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
-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)))) |