[py-configparser-cvs] r7 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jan 16 16:16:32 2008
New Revision: 7

Modified:
   trunk/package.lisp
   trunk/parser.lisp
Log:
package.lisp: Export 'CONFIG as it is the type of the created configuration.
parser.lisp: Create adjustable strings.

Modified: trunk/package.lisp
==============================================================================
--- trunk/package.lisp	(original)
+++ trunk/package.lisp	Wed Jan 16 16:16:32 2008
@@ -18,6 +18,9 @@
            ;; common condition class
            #:configparser-error
 
+           ;; configuration storage type
+           #:config
+
            ;; Configuration management
            ;;  Error classes
            #:no-section-erorr

Modified: trunk/parser.lisp
==============================================================================
--- trunk/parser.lisp	(original)
+++ trunk/parser.lisp	Wed Jan 16 16:16:32 2008
@@ -73,7 +73,9 @@
       ch))
 
 (defun make-input-buffer (p)
-  (make-array 20 :element-type 'cl:character :fill-pointer 0))
+  (declare (ignore p))
+  (make-array 20 :element-type 'cl:character :fill-pointer 0
+              :adjustable t))
 
 (proclaim '(inline extend-input))
 (defun extend-input (p c)