Add sharpsign dot #. for read-time evaluation

gistfile1.txt

commit 0cdc60320269e696c18e9423c2f0e15b52beeb81
Author: Leo Liu <[email protected]>
Date:   Sun Mar 4 09:22:57 2012 +0800

    Add sharpsign dot #. for read-time evaluation
---
 src/lread.c | 2 ++
 1 file changed, 2 insertions(+)

  Modified src/lread.c
diff --git a/src/lread.c b/src/lread.c
index 2e54b91d..bd2b424e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2490,6 +2490,8 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
 	  UNREAD (c);
 	  invalid_syntax ("#");
 	}
+      if (c == '.')
+	return Feval (read0 (readcharfun), Vlexical_binding);
       if (c == '^')
 	{
 	  c = READCHAR;