[py-configparser-cvs] r8 - trunk

[ehuelsmann at common-lisp.net]

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))