X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/73c17a8112be89922604824f47e5c4f6debda1e7..d0bb9ec5609757a5c1850af65c6c27febe766e55:/src/builtin.lisp?ds=sidebyside 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 @@ ',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)