- (let ((keylist (mapcar #'view-class-slot-column (keyslots-for-class class))))
- (when keylist
- (convert-to-db-default-case
- (format nil "CONSTRAINT ~APK PRIMARY KEY~A"
- (sql-output (view-table class) database)
- (sql-output keylist database))
- database))))
+ (let ((keylist (mapcar #'view-class-slot-column (keyslots-for-class class)))
+ (table (view-table class)))
+ (when keylist
+ (etypecase table
+ (string
+ (format nil "CONSTRAINT \"~APK\" PRIMARY KEY~A" table
+ (sql-output keylist database)))
+ ((or symbol sql-ident)
+ (format nil "CONSTRAINT ~APK PRIMARY KEY~A" table
+ (sql-output keylist database)))))))