From: David Vazquez <davazp@gmail.com>
Date: Fri, 14 Dec 2012 22:35:40 +0000 (+0000)
Subject: Fix bug in dot notation
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=77cd922d0d3d5dc73e66382bdf05e06a6b246048;p=jscl.git

Fix bug in dot notation
---

diff --git a/reader.lisp b/reader.lisp
index b516fbd..9b8a127 100644
--- a/reader.lisp
+++ b/reader.lisp
@@ -53,8 +53,8 @@
        nil)
       ((char= ch #\.)
        (%read-char stream)
+       (skip-whitespaces-and-comments stream)
        (prog1 (ls-read-1 stream)
-         (skip-whitespaces-and-comments stream)
          (unless (char= (%read-char stream) #\))
            (error "')' was expected."))))
       (t