Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
36e37d63
Commit
36e37d63
authored
Jun 24, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
c23ae044
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
10 deletions
+16
-10
src/eval.c
src/eval.c
+10
-10
src/mocklisp.c
src/mocklisp.c
+6
-0
No files found.
src/eval.c
View file @
36e37d63
...
...
@@ -1551,7 +1551,6 @@ Thus, (apply '+ 1 2 '(3 4)) returns 10.")
register
int
i
,
numargs
;
register
Lisp_Object
spread_arg
;
register
Lisp_Object
*
funcall_args
;
struct
gcpro
gcpro1
;
Lisp_Object
fun
;
fun
=
args
[
0
];
...
...
@@ -1614,13 +1613,7 @@ Thus, (apply '+ 1 2 '(3 4)) returns 10.")
spread_arg
=
XCONS
(
spread_arg
)
->
cdr
;
}
GCPRO1
(
*
funcall_args
);
gcpro1
.
nvars
=
numargs
+
1
;
{
Lisp_Object
val
=
Ffuncall
(
numargs
+
1
,
funcall_args
);
UNGCPRO
;
return
val
;
}
return
Ffuncall
(
numargs
+
1
,
funcall_args
);
}
/* Apply fn to arg */
...
...
@@ -1719,8 +1712,15 @@ Thus, (funcall 'cons 'x 'y) returns (x . y).")
QUIT
;
if
(
consing_since_gc
>
gc_cons_threshold
)
Fgarbage_collect
();
{
struct
gcpro
gcpro1
;
/* The backtrace protects the arguments for the rest of the function. */
GCPRO1
(
*
args
);
gcpro1
.
nvars
=
nargs
;
Fgarbage_collect
();
UNGCPRO
;
}
if
(
++
lisp_eval_depth
>
max_lisp_eval_depth
)
{
...
...
src/mocklisp.c
View file @
36e37d63
...
...
@@ -205,6 +205,10 @@ is converted into a string by expressing it in decimal.")
{
register
int
argnum
;
register
Lisp_Object
tem
;
struct
gcpro
gcpro1
;
GCPRO1
(
*
args
);
gcpro1
.
nvars
=
nargs
;
for
(
argnum
=
0
;
argnum
<
nargs
;
argnum
++
)
{
...
...
@@ -220,6 +224,8 @@ is converted into a string by expressing it in decimal.")
goto
retry
;
}
}
UNGCPRO
;
return
Qnil
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment