From f72b8e23a6dea1cb95f0054c0cabec913196bc19 Mon Sep 17 00:00:00 2001
From: kilianmh <kilian.haemmerle@protonmail.com>
Date: Mon, 7 Aug 2023 22:31:35 +0200
Subject: [PATCH] Fix: lispworks no-break-space

Other implementations use #\No-break_space while Lispworks uses #\no-break-space.
Thanks to @ijitai for reporting the bug.
---
 str.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/str.lisp b/str.lisp
index f03d54b..c169157 100644
--- a/str.lisp
+++ b/str.lisp
@@ -134,7 +134,7 @@
 (defvar *whitespaces* (list #\Backspace #\Tab #\Linefeed #\Newline #\Vt #\Page
                             #\Return #\Space #\Rubout
                             #+sbcl #\Next-Line #-sbcl (code-char 133)
-                            #\No-break_space)
+                            #+lispworks #\no-break-space #-lispworks #\No-break_space)
   "On some implementations, linefeed and newline represent the same character (code).")
 
 (defvar +version+ (asdf:component-version (asdf:find-system "str")))