Commits

Greg Slepak committed 512f20e

fixed query-cell-with-db

  • Participants
  • Parent commits 6f33c92

Comments (0)

Files changed (1)

example-site/dragonfly-framework/plugins-inactive/db/database_utils.lsp

 	(when (setf sql (db:prepare-sql query))
 		(when (or (not params) (sql:bind-params params))
 			(setf result (sql:next-row))
-			(when (list? result)
-				(setf result (first result)))
+			(if (list? result)
+				(setf result (first result))
+				(setf result nil) ; next-row returns true
+			)
 		)
 		(deallocate sql)
 		result