Commit 7f0750bf authored by Kamil Shakirov's avatar Kamil Shakirov
Browse files

Do not inline LENGTH on LispWorks.

Fixes compile-time warnings: "Inline expansion for LENGTH not found"
parent e5c54bc3
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
"Return true if SEQUENCE is a sequence of length LENGTH. Signals an error if "Return true if SEQUENCE is a sequence of length LENGTH. Signals an error if
SEQUENCE is not a sequence. Returns FALSE for circular lists." SEQUENCE is not a sequence. Returns FALSE for circular lists."
(declare (type array-index length) (declare (type array-index length)
(inline length) #-lispworks (inline length)
(optimize speed)) (optimize speed))
(etypecase sequence (etypecase sequence
(null (null
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment