From 2f97acfbbaf3ea63e22caf2607dc84fdd5e1d8cc Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Tue, 14 Jul 2015 00:45:14 +0300
Subject: [PATCH] Fix #-sb-unicode build.

Reported by Jan Moringen.
---
 src/code/target-unicode.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/code/target-unicode.lisp b/src/code/target-unicode.lisp
index 706c48e3e..2836f91b6 100644
--- a/src/code/target-unicode.lisp
+++ b/src/code/target-unicode.lisp
@@ -743,6 +743,8 @@ If FILTER is a function it is called on each decomposed character and
 only characters for which it returns T are collected."
   (declare (type (member :nfd :nfkd :nfc :nfkc) form))
   #!-sb-unicode
+  (declare (ignore filter))
+  #!-sb-unicode
   (etypecase string
     ((array nil (*)) string)
     (string
-- 
2.11.4.GIT