X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/73c17a8112be89922604824f47e5c4f6debda1e7..2aa518549b302b3556dbaa42585e6fc16a63ae7c:/src/builtin.lisp diff --git a/src/builtin.lisp b/src/builtin.lisp index c38d92c..8b4407b 100644 --- a/src/builtin.lisp +++ b/src/builtin.lisp @@ -61,7 +61,7 @@ (defmacro define-class-slot ',name (lambda (,classvar) (make-sod-slot ,classvar ,name (c-type ,type) - (make-property-set :lisp-class 'sod-class-slot + (make-property-set :slot-class 'sod-class-slot :initializer-function (lambda (,class) ,init)