Author: ehuelsmann Date: Thu Jan 17 17:39:27 2008 New Revision: 8
Modified: trunk/config.lisp Log: Fix ITEMS; found while writing tests.
Modified: trunk/config.lisp ============================================================================== --- trunk/config.lisp (original) +++ trunk/config.lisp Thu Jan 17 17:39:27 2008 @@ -262,11 +262,11 @@ option values are expanded.
The definition of `defaults' is the same as for `get-option'." - (let ((section (get-section config section-name))) + (let ((section (%get-section config section-name))) (if expand (mapcar #'(lambda (x) - (cons (car x) (get-option p section-name - (cdr x) ;; option-name + (cons (car x) (get-option config section-name + (car x) ;; option-name :expand t :defaults defaults))) (section-options section))