fix infinite loop when accessing dimensional slots in queries
Mon May 3 05:30:24 PDT 2010 tomi.borbely@gmail.com
* fix infinite loop when accessing dimensional slots in queries
diff -rN -u old-cl-perec/query/sql.lisp new-cl-perec/query/sql.lisp
--- old-cl-perec/query/sql.lisp 2014-07-31 06:36:37.000000000 -0700
+++ new-cl-perec/query/sql.lisp 2014-07-31 06:36:37.000000000 -0700
@@ -347,7 +347,10 @@
(sql-column-reference-for (first column-names) qualifier))))))
(:method (element qualifier)
- (sql-column-reference-for element (sql-alias-for qualifier)))
+ (if (or (null qualifier)
+ (stringp qualifier))
+ (error "Dont know how to create column reference from ~S." element)
+ (sql-column-reference-for element (sql-alias-for qualifier))))
(:method ((column-alias sql-column-alias) qualifier)
(sql-column-reference-for (rdbms::column-of column-alias) qualifier)))