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
ad17573a
Commit
ad17573a
authored
Oct 04, 1994
by
Karl Heuer
Browse files
(Flength, concat, mapcar1): Don't use XFASTINT as an lvalue.
parent
2acfd7ae
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
src/fns.c
src/fns.c
+5
-5
No files found.
src/fns.c
View file @
ad17573a
...
...
@@ -111,12 +111,12 @@ A byte-code function object is also allowed.")
tail
=
Fcdr
(
tail
);
}
XFASTINT
(
val
)
=
i
;
X
SET
FASTINT
(
val
,
i
)
;
return
val
;
}
else
if
(
NILP
(
obj
))
{
XFASTINT
(
val
)
=
0
;
X
SET
FASTINT
(
val
,
0
)
;
return
val
;
}
else
...
...
@@ -305,7 +305,7 @@ concat (nargs, args, target_type, last_special)
leni
+=
XFASTINT
(
len
);
}
XFASTINT
(
len
)
=
leni
;
X
SET
FASTINT
(
len
,
leni
)
;
if
(
target_type
==
Lisp_Cons
)
val
=
Fmake_list
(
len
,
Qnil
);
...
...
@@ -355,7 +355,7 @@ concat (nargs, args, target_type, last_special)
{
if
(
thisindex
>=
thisleni
)
break
;
if
(
STRINGP
(
this
))
XFASTINT
(
elt
)
=
XSTRING
(
this
)
->
data
[
thisindex
++
];
X
SET
FASTINT
(
elt
,
XSTRING
(
this
)
->
data
[
thisindex
++
]
)
;
else
elt
=
XVECTOR
(
this
)
->
contents
[
thisindex
++
];
}
...
...
@@ -1053,7 +1053,7 @@ mapcar1 (leni, vals, fn, seq)
{
for
(
i
=
0
;
i
<
leni
;
i
++
)
{
XFASTINT
(
dummy
)
=
XSTRING
(
seq
)
->
data
[
i
];
X
SET
FASTINT
(
dummy
,
XSTRING
(
seq
)
->
data
[
i
]
)
;
vals
[
i
]
=
call1
(
fn
,
dummy
);
}
}
...
...
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