mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1991-08-04 21:39:58 +00:00
parent bfb612994f
commit 200f684ed7
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/lread.c
View File

@ -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 ';':

4
src/print.c
View File

@ -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