;;docs
(query (:create-table 'color
         ((color-id :type int :generated-as-identity-always)
          (color-name :type varchar))))

(query (:create-table 'color
         ((color-id :type int :generated-as-identity-by-default)
          (color-name :type varchar))))

(query (:create-table 'color
         ((color-id :type int :identity-always)
          (color-name :type varchar))))

(query (:create-table 'color
         ((color-id :type int :identity-by-default)
          (color-name :type varchar))))
;;;



(defclass sql-users ();;table that'll contain ther users y33t
  ((username :col-type string :initarg :username
	     :accessor sql-users-username :unique t)
   (email :col-type string :initarg :email
	  :accessor sql-users-email :unique t)
   (password :col-type (string 128) :initarg :password
	     :accessor sql-user-password)
   (grant-date :col-type (or timestamp-with-time-zone db-null)
	       :accessor sql-user-grant-date)
   (id :col-type int :identity-by-default
       :accessor sql-user-id))
  (:metaclass dao-class)
  (:keys id))