Corrected a bug in the skip-token-and-continue report function: string= -> word-equal.

Pascal J. Bourguignon [2021-06-10 00:50]
Corrected a bug in the skip-token-and-continue report function: string= -> word-equal.

Thanks to Dan Stanger for the bug report.
Filename
rdp/rdp.lisp
diff --git a/rdp/rdp.lisp b/rdp/rdp.lisp
index ed793d1..cebf146 100644
--- a/rdp/rdp.lisp
+++ b/rdp/rdp.lisp
@@ -1085,8 +1085,8 @@ RETURN: the new production set; the new non-terminal set
     (skip-token-and-continue ()
       :report (lambda (stream)
                 (format stream "Skip token ~:[~A ~A~;~*<~A>~], and continue"
-                        (string= (scanner-current-token scanner)
-                                 (scanner-current-text scanner))
+                        (word-equal (scanner-current-token scanner)
+                                    (scanner-current-text scanner))
                         (scanner-current-token scanner)
                         (scanner-current-text scanner)))
       (scan-next-token scanner)
ViewGit