14 Sep 2007 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / tests / test-oodml.lisp

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 0e91f2d42dc8baceb8846613c54487fabbcdd723..a5fefe02e1ef057de740f7cb49488c251c019f97 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -442,7 +442,7 @@
 
         (deftest :oodml/uoj/1
             (progn
-              (let* ((dea-list (select 'deferred-employee-address :caching nil :order-by [ea_join aaddressid]
+              (let* ((dea-list (select 'deferred-employee-address :caching nil :order-by ["ea_join" aaddressid]
                                        :flatp t))
                      (dea-list-copy (copy-seq dea-list))
                      (initially-unbound (every #'(lambda (dea) (not (slot-boundp dea 'address))) dea-list)))