Skip to content

Commit

Permalink
Use #\null instead of #\nul
Browse files Browse the repository at this point in the history
The latter is recognized by a bunch of implementations, but not by
clisp.

Issue #12
  • Loading branch information
marijnh committed Feb 13, 2012
1 parent 0a351b0 commit b08f102
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions json.lisp
Expand Up @@ -68,9 +68,9 @@
(let ((finished nil)) (let ((finished nil))
(loop (loop
(skip-whitespace stream) (skip-whitespace stream)
(let ((next (peek-char nil stream nil #\nul))) (let ((next (peek-char nil stream nil #\null)))
(declare (type character next)) (declare (type character next))
(when (eql next #\nul) (when (eql next #\null)
(json-error "Encountered end of input inside ~A." obj-name)) (json-error "Encountered end of input inside ~A." obj-name))
(when (eql next end-char) (when (eql next end-char)
(read-char stream) (read-char stream)
Expand Down

0 comments on commit b08f102

Please sign in to comment.