From 54059e6725075ee8fb2f924da45843f69ca72371 Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Thu, 6 Mar 2014 13:18:19 +0100
Subject: [PATCH] Implement eval macrocharacter (#'.)

---
 src/read.lisp |    2 ++
 1 file changed, 2 insertions(+)

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)
-- 
1.7.10.4