search

fukamachi / integral

[OBSOLETE] Use Mito instead.
https://github.com/fukamachi/mito
BSD 3-Clause "New" or "Revised" License
54 stars 3 forks source link

slot-name with hyphens in :primary-key doesn't work #40

Closed rudolph-miller closed 9 years ago

rudolph-miller commented 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`))"