Hello,<div><br></div><div>I'm working on a Postmodern backend for weblocks. To conform to their <a href="http://bitbucket.org/S11001001/weblocks-dev/src/f14b59da2238/src/store/store-api.lisp">Store API</a> I need to implement a count-persistent-objects method. I would like to be able to write something like:</div>
<div><br></div><div><div>(defmethod count-persistent-objects ((store list) class-name</div></div><div><div>                                     &key where &allow-other-keys)</div><div>  (let ((sql-expr `(:select (:count '*) :from ,class-name</div>
<div>                            ,@(when where (list :where where)))))</div><div>    (with-connection store</div><div>      (query sql-expr :single))))</div><div><br></div></div><div>However a simple test of this results in a type error:</div>
<div><div>The value of CL-POSTGRES::QUERY is (:SELECT (:COUNT '*) :FROM QUOTES), which is not of type STRING.</div></div><div><br></div><div>Is there a reason that query doesn't support evaluated lists? If so, how would you recommend this be done?</div>
<div><br></div><div>Regards,</div><div>Brit Butler</div>