Created
June 24, 2013 15:11
-
-
Save PuercoPop/5850773 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ql:quickload :postmodern) | |
(defpackage :test-case | |
(:use :cl) | |
(:import :pomo)) | |
(in-package :test-case) | |
;; (defclass dao-class (standard-class) | |
;; ((direct-keys :initarg :keys :initform nil :reader direct-keys) | |
;; (effective-keys :reader dao-keys) | |
;; (table-name) | |
;; (column-map :reader dao-column-map)) | |
;; (:documentation "Metaclass for database-access-object classes.")) | |
(defclass definition () | |
((id :col-type serial :reader definition-id) | |
(content :col-type string :initarg :content :accessor definition-content) | |
(word :col-type string :initarg :word :accessor definition-word)) | |
(:metaclass dao-class) | |
(:keys id)) | |
(pomo:dao-keys 'definition) | |
;; => (ID) | |
;; What I am setting with :keys? a slot in the meta class? |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment