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
a2ad3e19
Commit
a2ad3e19
authored
Nov 16, 1994
by
Karl Heuer
Browse files
(Flength): Don't call Farray_length, just use size field.
parent
cec4abce
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
9 deletions
+8
-9
src/fns.c
src/fns.c
+8
-9
No files found.
src/fns.c
View file @
a2ad3e19
...
...
@@ -101,29 +101,28 @@ A byte-code function object is also allowed.")
register
int
i
;
retry:
if
(
VECTORP
(
obj
)
||
STRINGP
(
obj
)
||
COMPILEDP
(
obj
))
return
Farray_length
(
obj
);
if
(
STRINGP
(
obj
))
XSETFASTINT
(
val
,
XSTRING
(
obj
)
->
size
);
else
if
(
VECTORP
(
obj
)
||
COMPILEDP
(
obj
))
XSETFASTINT
(
val
,
XVECTOR
(
obj
)
->
size
);
else
if
(
CONSP
(
obj
))
{
for
(
i
=
0
,
tail
=
obj
;
!
NILP
(
tail
);
i
++
)
for
(
i
=
0
,
tail
=
obj
;
!
NILP
(
tail
);
i
++
)
{
QUIT
;
tail
=
Fcdr
(
tail
);
}
XSETFASTINT
(
val
,
i
);
return
val
;
}
else
if
(
NILP
(
obj
))
{
XSETFASTINT
(
val
,
0
);
return
val
;
}
else
if
(
NILP
(
obj
))
XSETFASTINT
(
val
,
0
);
else
{
obj
=
wrong_type_argument
(
Qsequencep
,
obj
);
goto
retry
;
}
return
val
;
}
DEFUN
(
"string-equal"
,
Fstring_equal
,
Sstring_equal
,
2
,
2
,
0
,
...
...
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