Closed rudolph-miller closed 9 years ago
(defclass tweet () ((id :type serial :reader tweet-id) (status :type string :accessor :tweet-status) (user-name :type (varchar 64) :accessor :tweet-user-name)) (:metaclass <dao-table-class>) (:table-name "tweets") (:unique-keys) (:primary-key (user-name))) (table-definition 'tweet) ;; => "CREATE TABLE `tweets` (`id` INTEGER, `status` TEXT, `user_name` VARCHAR(64), PRIMARY KEY (`user-name`))"