diff options
| author | Richard M. Stallman <[email protected]> | 1991-08-04 21:39:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1991-08-04 21:39:58 +0000 |
| commit | 200f684ed77de1b1b366daaf73d4bc95161765dc (patch) | |
| tree | aad3be16c649640ef8c2ef746a5ade6c1257b469 /src/lread.c | |
| parent | bfb612994fe2d6dfb42919842c5f40059cd08135 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 5450fa30c3..d8912195f8 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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 ';': |