From 214f8e16496d5e60740a14ca9e554ec8637c2bf2 Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Mon, 1 May 2017 15:48:54 +0200
Subject: [PATCH] declare local function local

---
 src/lsp/defpackage.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/lsp/defpackage.lsp b/src/lsp/defpackage.lsp
index f2e7b6193..db1cfc7c9 100644
--- a/src/lsp/defpackage.lsp
+++ b/src/lsp/defpackage.lsp
@@ -176,6 +176,7 @@
 	  ',exported-from-package-names)))))
 
 (defun check-disjoint (&rest args)
+  (declare (si::c-local))
   ;; An arg is (:key . set)
   (do ((list args (cdr list)))
       ((endp list))