From 675efd60deb9e1adcc9fc4fb43bf155df6b64403 Mon Sep 17 00:00:00 2001
From: Daniel Kochmanski <daniel@turtleware.eu>
Date: Sat, 13 May 2017 10:44:03 +0200
Subject: [PATCH] port-undefined-text-style: used in clx backend

---
 silica/classes.lisp | 2 +-
 utils/packages.lisp | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/silica/classes.lisp b/silica/classes.lisp
index d2814256..6c7aa9e5 100644
--- a/silica/classes.lisp
+++ b/silica/classes.lisp
@@ -43,7 +43,7 @@
      (mapping-cache :initform
 		    #+(or aclpc acl86win32) (cons nil nil)
 		    #-(or aclpc acl86win32) (mapping-cache-initform))
-#+(or aclpc acl86win32)
+#+(or aclpc acl86win32 (and))
      (undefined-text-style :initform *undefined-text-style*
                            :accessor port-undefined-text-style)
      ;; When this is true, the text style to device font mapping is done
diff --git a/utils/packages.lisp b/utils/packages.lisp
index cdab7f39..dd77de99 100644
--- a/utils/packages.lisp
+++ b/utils/packages.lisp
@@ -3031,7 +3031,7 @@
     *ports*
     *standard-character-set*
     *all-character-sets*
-    #+(or aclpc acl86win32) *undefined-text-style*
+    #+(or aclpc acl86win32 (and)) *undefined-text-style*
     +highlighting-line-style+
     activate-gadget-event
     add-sheet-callbacks
@@ -3184,7 +3184,7 @@
     port-set-sheet-grabbed-pointer-cursor
     port-terminated
     port-trace-thing
-    #+(or aclpc acl86win32) port-undefined-text-style
+    #+(or aclpc acl86win32 (and)) port-undefined-text-style
     process-event-locally
     pull-down-menu
     pull-down-menu-button
-- 
GitLab