diff src/lread.c @ 373:7c6f74ef31a3

*** empty log message ***

--- a/src/lread.c	Fri Aug 02 02:24:35 1991 +0000
+++ b/src/lread.c	Sun Aug 04 21:39:58 1991 +0000
@@ -791,6 +791,15 @@
       }
 
     case '#':
+      c = READCHAR;
+      if (c == '[')
+	{
+	  /* Accept compiled functions at read-time so that we don't have to
+	     build them using function calls.  */
+	  Lisp_Object tmp = read_vector (readcharfun);
+	  return Fmake_byte_code (XVECTOR(tmp)->size, XVECTOR (tmp)->contents);
+	}
+      UNREAD (c);
       return Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#", 1), Qnil));
 
     case ';':