r11859: Canonicalize whitespace

[umlisp.git] / tests / basic.lisp

diff --git a/tests/basic.lisp b/tests/basic.lisp
index 721b098b41e72a839f691ce011f4d5331e6b0411..2142e6fc3ef2def1e2b2c819249b4712be2fd887 100644 (file)
--- a/tests/basic.lisp
+++ b/tests/basic.lisp
@@ -63,11 +63,11 @@
       "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc")
 
     (deftest :qrystr/8 (umlisp::query-string mrdef (sab def) 2 cui 39 :lrl ksrl
-                       :order (cui asc def desc))
+                        :order (cui asc def desc))
       "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc,DEF desc")
 
     (deftest :qrystr/8e (umlisp::query-string-eval 'mrdef '(sab def) 2 'cui 39 :lrl 'ksrl
-                        :order '(cui asc def desc))
+                         :order '(cui asc def desc))
       "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc,DEF desc")
 
     (deftest :ui/1 (umlisp::parse-cui "C0002341") 2341)