(genre :accessor genre :initarg :genre :type (varchar 10) :db-constraints (:default "'Unknown'"))))
(defun initialize-ds-artists ()
- ; (start-sql-recording :type :both)
- ; (let ((*backend-warning-behavior*
- ; (if (member *test-database-type* '(:postgresql :postgresql-socket))
- ; :ignore
- ; :warn)))
(mapc #'clsql:create-view-from-class
'(artist))