cl-2sql

commit a4cc5d804892e251483496441cd2c4fea735d633
parent 77692d7673bf8fa22917e0578fd9db45e11a5004
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon,  5 Sep 2011 22:00:34 +0200

fix defpclass superclasses, persistent-object at the end

Diffstat:
M
orm.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/orm.lisp b/orm.lisp
@@ -455,7 +455,7 @@
        (expt 2 +class-id-bit-size+)))
 
 (defmacro defpclass (name superclasses slots)
-  `(defclass ,name ,(cons 'persistent-object superclasses)
+  `(defclass ,name ,(append superclasses '(persistent-object))
      ,slots
      (:metaclass persistent-class)))