anchor.diff:        (let ((sxql:*quote-character* (or sxql:*quote-character*
                                           (connection-quote-character *connection*))))
           (sxql:yield statement))
  -    (when *trace-sql*
  -      (let ((stack (get-prev-stack)))
  -        (log:trace :logger *sql-logger*
  -                   "~A (~{~S~^, ~})~:[~;~:* | ~S~]" sql params stack)))
  -    (let ((prepared (dbi:prepare conn sql)))
  -      (apply #'dbi:execute prepared params))))
  +    (let* ((prepared (dbi:prepare conn sql))
  +           (results (dbi:fetch-all (apply #'dbi:execute prepared params))))
  +      (when *trace-sql*
  +        (let ((stack (get-prev-stack)))
  +          (log:trace :logger *sql-logger*
  +                     "~A (~{~S~^, ~}) [~D row~:P]~:[~;~:* | ~S~]" sql params (length results) stack)))
  +      results)))
   
   @export
   (defun retrieve-one (statement &key by = (as *default-row-type*) (prettify t))
  
positive.code: 
  @export
  (defun execute (statement)
    (execute-with-connection *connection* statement))
  
negative.code:                 nil)
              (limit 1))))
    (convert-row
     (first (execute-with-connection *connection* statement))
     :as as
     :prettify prettify))
  
  