# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 681341998 0
# Node ID 7c6f74ef31a31d76f0d88fb916e89601bae88336
# Parent  481e29c1e27ea51f2b6a648d474c4af98f973762
*** empty log message ***

diff -r 481e29c1e27e -r 7c6f74ef31a3 src/lread.c
--- 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 ';':
diff -r 481e29c1e27e -r 7c6f74ef31a3 src/print.c
--- a/src/print.c	Fri Aug 02 02:24:35 1991 +0000
+++ b/src/print.c	Sun Aug 04 21:39:58 1991 +0000
@@ -805,7 +805,7 @@
       break;
 
     case Lisp_Compiled:
-      strout ("#<byte-code ", -1, printcharfun);
+      strout ("#", -1, printcharfun);
     case Lisp_Vector:
       PRINTCHAR ('[');
       {
@@ -819,8 +819,6 @@
 	  }
       }
       PRINTCHAR (']');
-      if (XTYPE (obj) == Lisp_Compiled)
-	PRINTCHAR ('>');
       break;
 
 #ifndef standalone