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