fix(fun/wcl): Use 'eql' for byte comparisons r/472

The fact that this works is just an implementation-specific detail. In
theory, 'eq' will only compare object instance equality and not value.

Thanks to /u/patrec from HN for pointing this out.

1 files changed, 4 insertions, 4 deletions

diff --git a/fun/wcl/wc.lisp b/fun/wcl/wc.lisp
index a3d5cd120629..81576d41aa4c 100644
--- a/fun/wcl/wc.lisp
+++ b/fun/wcl/wc.lisp
@@ -12,7 +12,7 @@
       (iter
         (for byte in-stream file-stream using #'read-byte)
         (for previous-byte previous byte)
-        (for is-newline = (eq newline byte))
+        (for is-newline = (eql newline byte))
 
         ;; Count each byte
         (sum 1 into bytes)
@@ -22,12 +22,12 @@
 
         ;; Count every "word", unless the preceding character already
         ;; was a space or we are at the beginning of the file.
-        (when (or (eq space previous-byte)
-                  (eq newline previous-byte)
+        (when (or (eql space previous-byte)
+                  (eql newline previous-byte)
                   (not previous-byte))
           (next-iteration))
 
-        (counting (or is-newline (eq space byte))
+        (counting (or is-newline (eql space byte))
                   into words)
 
         (declare (fixnum bytes newlines words))