Fix 6d0d226 by converting the view-name to an SQL symbol not a variable.

fukamachi · Jun 28, 2024 · 31393c4 · 31393c4
1 parent 6d0d226
commit 31393c4
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/dao/view.lisp b/src/core/dao/view.lisp
@@ -46,7 +46,11 @@
 (defmethod sxql:make-statement ((statement-name (eql :drop-view)) &rest args)
   (destructuring-bind (view-name &key if-exists)
       args
-    (make-drop-view (sxql.operator:detect-and-convert view-name) :if-exists if-exists)))
+    (make-drop-view (typecase view-name
+                      (sxql.sql-type:sql-symbol view-name)
+                      (string (sxql:make-sql-symbol view-name))
+                      (otherwise (sxql.operator:detect-and-convert view-name)))
+                    :if-exists if-exists)))
 
 (defmethod sxql:yield ((statement drop-view))
   (sxql.sql-type:with-yield-binds