Author: ehuelsmann Date: Sat Jan 19 14:26:08 2008 New Revision: 12 Modified: trunk/parser.lisp Log: PROCLAIM -> DECLAIM. Modified: trunk/parser.lisp ============================================================================== --- trunk/parser.lisp (original) +++ trunk/parser.lisp Sat Jan 19 14:26:08 2008 @@ -10,9 +10,9 @@ ;; The reader -(proclaim '(special *line-no* *current-section* *file-name* +(declaim '(special *line-no* *current-section* *file-name* *current-input*)) -(proclaim '(inline %read-char %unread-char)) +(declaim '(inline %read-char %unread-char)) (defun %read-char (stream) (let ((ch (read-char stream nil :eof))) @@ -77,7 +77,7 @@ (make-array 20 :element-type 'cl:character :fill-pointer 0 :adjustable t)) -(proclaim '(inline extend-input)) +(declaim '(inline extend-input)) (defun extend-input (p c) (vector-push-extend c *current-input* 20))