X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fread.lisp;h=87ceb1ac4642da4489ee258b6a8aa8722e69b2a0;hb=e8992591d4100811ac125bf97c5b153ddecb0250;hp=6e9eb68cc751bcb7e6d6c411e08e43bbfcdc061b;hpb=c296885ca974898925b89af066b1b14a6fca0f57;p=jscl.git

diff --git a/src/read.lisp b/src/read.lisp
index 6e9eb68..87ceb1a 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -205,6 +205,8 @@
     (case ch
       (#\'
        (list 'function (ls-read stream eof-error-p eof-value t)))
+      (#\.
+       (eval (ls-read stream)))
       (#\(
        (do ((elements nil)
             (result nil)