Commit 200f684e authored by Richard M. Stallman's avatar Richard M. Stallman

*** empty log message ***

parent bfb61299
......@@ -791,6 +791,15 @@ read1 (readcharfun)
}
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 ';':
......
......@@ -805,7 +805,7 @@ print (obj, printcharfun, escapeflag)
break;
case Lisp_Compiled:
strout ("#<byte-code ", -1, printcharfun);
strout ("#", -1, printcharfun);
case Lisp_Vector:
PRINTCHAR ('[');
{
......@@ -819,8 +819,6 @@ print (obj, printcharfun, escapeflag)
}
}
PRINTCHAR (']');
if (XTYPE (obj) == Lisp_Compiled)
PRINTCHAR ('>');
break;
#ifndef standalone
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment