projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Automated commit for upstream build of version 6.7.0
[clsql.git]
/
sql
/
metaclasses.lisp
diff --git
a/sql/metaclasses.lisp
b/sql/metaclasses.lisp
index 1c9a6c5b34583fe882886bdb6c65b7ce70f665cd..9aa7dd9b014330caa35662b32808a24cab984044 100644
(file)
--- a/
sql/metaclasses.lisp
+++ b/
sql/metaclasses.lisp
@@
-149,7
+149,8
@@
(remove-keyword-arg all-keys :direct-superclasses)))
(call-next-method)))
(register-metaclass class (nth (1+ (position :direct-slots all-keys))
- all-keys)))
+ all-keys))
+ class)
(defun get-keywords (keys list)