From 2db125573be1434a2e51e506a3dd8ad1fe6f3741 Mon Sep 17 00:00:00 2001
From: th <torhenrik@gmail.com>
Date: Tue, 27 Oct 2020 19:29:33 +0100
Subject: [PATCH 1/3] Just use #\Newline here.

---
 base/scalar-value.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/base/scalar-value.lisp b/base/scalar-value.lisp
index 849c239..b990c40 100644
--- a/base/scalar-value.lisp
+++ b/base/scalar-value.lisp
@@ -42,7 +42,7 @@
          :for char := (case scalar-value-int
                         (8 #\Backspace)
                         (9 #\Tab)
-                        (10 #\Linefeed)
+                        (10 #\Newline)
                         (12 #\Page)
                         (13 #\Return)
                         (32 #\Space)
@@ -64,9 +64,7 @@
   (:method ((int integer))
     int)
   (:method ((char character))
-    (case char
-      (#\Newline 10)
-      (otherwise (svref +map-char-code-to-scalar-value-int+ (char-code char))))))
+    (svref +map-char-code-to-scalar-value-int+ (char-code char))))
 
 
 (defun scalar-value-int (object)

From 26da917186b0f5dbec8d7de32f6054e56f9289aa Mon Sep 17 00:00:00 2001
From: th <torhenrik@gmail.com>
Date: Tue, 27 Oct 2020 19:43:20 +0100
Subject: [PATCH 2/3] Typo

---
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 4ab4406..a2496ea 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
 # Unicode support for Common Lisp
 
-This is a work in progress to defina a portable protocol for Unicode
+This is a work in progress to define a portable protocol for Unicode
 text in Common Lisp.

From 9c34a7a48315dc8913e8abb9ec6c7e1e720fbf58 Mon Sep 17 00:00:00 2001
From: th <torhenrik@gmail.com>
Date: Sun, 1 Nov 2020 10:44:03 +0100
Subject: [PATCH 3/3] Typo.

---
 base/README.md | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/base/README.md b/base/README.md
index b0096f6..e848035 100644
--- a/base/README.md
+++ b/base/README.md
@@ -13,16 +13,16 @@ numbers value.
 
 Standard characters denotes code points as in the table below.
 
-If an implenetation supports any of the semi standard characters, they
+If an implementation supports any of the semi standard characters, they
 denote code points as in the table below.
 
-It is implenetation defined what code point, if any, `Newline`
+It is implementation defined what code point, if any, `Newline`
 denotes. If supported, `Linefeed` always denotes U+000A. This implies
 that if `Newline` and `Linefeed` are the same character, they both
 denotes U+000A.
 
 `code-point` and `character` are always overlapping types. Depending
-on implenetation `code-point` can be a subtype of `character` or
+on implementation `code-point` can be a subtype of `character` or
 `character` can be a subtype of `code-point`. A conforming program
 must not assume that all code points can be denoted by a character or
 that all characters denotes a code point.