From 7f0750bf0c81d346e5eb1c33437ec19f3bf197d6 Mon Sep 17 00:00:00 2001 From: Kamil Shakirov <kamil@ska80.net> Date: Wed, 31 Jan 2018 17:18:37 +0700 Subject: [PATCH] Do not inline LENGTH on LispWorks. Fixes compile-time warnings: "Inline expansion for LENGTH not found" --- sequences.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sequences.lisp b/sequences.lisp index 118322a..16d1323 100644 --- a/sequences.lisp +++ b/sequences.lisp @@ -9,7 +9,7 @@ "Return true if SEQUENCE is a sequence of length LENGTH. Signals an error if SEQUENCE is not a sequence. Returns FALSE for circular lists." (declare (type array-index length) - (inline length) + #-lispworks (inline length) (optimize speed)) (etypecase sequence (null -- GitLab