:database database)))
(defun update-schema-version-records (view-class-name
&key (database *default-database*))
(let ((schemadef nil)
(tclass (find-class view-class-name)))
:database database)))
(defun update-schema-version-records (view-class-name
&key (database *default-database*))
(let ((schemadef nil)
(tclass (find-class view-class-name)))