X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/b5911ce8da34bfdd5c4515b44fd2efce7c9c233f..refs/heads/master:/src/lexer-proto.lisp

diff --git a/src/lexer-proto.lisp b/src/lexer-proto.lisp
index a811298..a237a92 100644
--- a/src/lexer-proto.lisp
+++ b/src/lexer-proto.lisp
@@ -65,6 +65,14 @@
 			      (:char "<character-literal>")
 			      (:eof "<end-of-file>")
 			      (:ellipsis "`...'")
+			      (:shl "`<<'")
+			      (:shr "`>>'")
+			      (:eq "`=='")
+			      (:ne "`!='")
+			      (:le "`<='")
+			      (:ge "`>='")
+			      (:and "`&&'")
+			      (:or "`||'")
 			      (t (format nil "<? ~S~@[ ~S~]>" type value)))))
 		      (show-expected (thing)
 			(acond ((gethash thing *indicator-map*) it)