From: David Vázquez <davazp@gmail.com>
Date: Thu, 6 Mar 2014 12:18:19 +0000 (+0100)
Subject: Implement eval macrocharacter (#'.)
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=54059e6725075ee8fb2f924da45843f69ca72371

Implement eval macrocharacter (#'.)
---

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)