(def-view-class subloc (location)
((subloc-id :accessor subloc-id :initarg :subloc-id
:type integer :db-kind :key :db-constraints (:not-null))
(loc :accessor loc :initarg :loc :type (varchar 64)))
(def-view-class subloc (location)
((subloc-id :accessor subloc-id :initarg :subloc-id
:type integer :db-kind :key :db-constraints (:not-null))
(loc :accessor loc :initarg :loc :type (varchar 64)))