diff --git a/ansi-tests/syntax.lsp b/ansi-tests/syntax.lsp index f5b7a534ffa838ded55b1e89f84e63ba5c1b1ad5..bcb40009d3615ba7ac88723638df78dd6663513e 100644 --- a/ansi-tests/syntax.lsp +++ b/ansi-tests/syntax.lsp @@ -165,6 +165,7 @@ (list (list name c s val))))))) nil) +#| (def-syntax-test syntax.escape.whitespace.2 (let ((names '("Tab" "Newline" "Linefeed" "Space" "Return" "Page"))) (loop for name in names @@ -176,6 +177,7 @@ (unless (eql val (intern (string c))) (list (list name c s val))))))) nil) +|# (def-syntax-test syntax.multiple-escape.invalid.backspace (let ((c (name-char "Backspace")))