-(defmethod explain ((expr %sql-expression) &key (database *default-database*))
- (let ((expression (sql-output expr database)))
- (format *standard-output* "explain: ~S~%" expression)
- (execute-command (concatenate 'string "explain " expression))))
-