Support to macroexpansion, and more

[jscl.git] / reader.lisp

diff --git a/reader.lisp b/reader.lisp
index b516fbd..9b8a127 100644 (file)
--- 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