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)