Detect empty SQL vectors (better error messages).

magit · Jan 29, 2014 · 3f38b35 · 3f38b35
1 parent cc92c15
commit 3f38b35
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
@@ -58,6 +58,7 @@
 (defun emacsql-escape-vector (vector)
   "Encode VECTOR into a SQL vector scalar."
   (cl-typecase vector
+    (null   (emacsql-error "Empty SQL vector expression."))
     (list   (mapconcat #'emacsql-escape-vector vector ", "))
     (vector (concat "(" (mapconcat #'emacsql-escape-value vector ", ") ")"))
     (otherwise (emacsql-error "Invalid vector %S" vector))))