Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 86f09e0)
cosmetic: wrap lines esthetically
authorDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 06:17:32 +0000 (08:17 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Wed, 19 Aug 2015 06:17:32 +0000 (08:17 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/tests/bugs/test-ansi.lsp patch | blob | blame | history

diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp
index 52bf9e4..8dd5608 100644 (file)
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -7,11 +7,16 @@
 ;;;;;;;;;;;;;;;;;;;;;
 
 (symbol-macrolet ((lookup-table
-       '(:SYMBOL   ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")
-         :UPCASE   (|ZEBRA| |ZEBRA| |ZEBRA| |ZEBRa|   |ZEBRA|   |ZEBRa|   |ZEBRA|   |ZEBRa|   |ZEBRA|)
-         :DOWNCASE (|zebra| |zebra| |zebra| |zebra|   |zebrA|   |zebra|   |zebrA|   |zebra|   |zebrA|)
-         :PRESERVE (|zebra| |Zebra| |ZEBRA| |zebra|   |zebrA|   |ZEBRa|   |ZEBRA|   |Zebra|   |ZebrA|)
-         :INVERT   (|ZEBRA| |Zebra| |zebra| |ZEBRa|   |ZEBRA|   |zebra|   |zebrA|   |Zebra|   |ZebrA|))))
+                   '(:SYMBOL   ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A"
+                                "ZEBR\\a""ZEBR\\A" "Zebr\\a" "Zebr\\A")
+                     :UPCASE   (|ZEBRA| |ZEBRA| |ZEBRA| |ZEBRa|
+                                |ZEBRA| |ZEBRa| |ZEBRA| |ZEBRa| |ZEBRA|)
+                     :DOWNCASE (|zebra| |zebra| |zebra| |zebra|
+                                |zebrA| |zebra| |zebrA| |zebra| |zebrA|)
+                     :PRESERVE (|zebra| |Zebra| |ZEBRA| |zebra|
+                                |zebrA| |ZEBRa| |ZEBRA| |Zebra| |ZebrA|)
+                     :INVERT   (|ZEBRA| |Zebra| |zebra| |ZEBRa|
+                                |ZEBRA| |zebra| |zebrA| |Zebra| |ZebrA|))))
   (macrolet
       ((def-readtable-case-test (reader-case)
          `(deftest ,(concatenate 'string "TEST-ANSI.READTABLE.CASE-"
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)