Author: ehuelsmann Date: Mon Feb 11 17:07:41 2008 New Revision: 17

Modified: branches/1.0.x/parser.lisp Log: Port r16 fix to 1.0.x branch.

Modified: branches/1.0.x/parser.lisp ============================================================================== --- branches/1.0.x/parser.lisp (original) +++ branches/1.0.x/parser.lisp Mon Feb 11 17:07:41 2008 @@ -143,7 +143,7 @@ until (eq c :eof) if (eql c #[) do (setf *current-section* - (ensure-section p (read-section-name p s))) + (section-name (ensure-section p (read-section-name p s))))

else if (is-whitespace c) do (skip-empty-line s)