X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..d6bb2ccd1acd7d3ed72e26d7d9a2ec6f72d96e1a:/src/class-make-impl.lisp diff --git a/src/class-make-impl.lisp b/src/class-make-impl.lisp index 906519b..aef6948 100644 --- a/src/class-make-impl.lisp +++ b/src/class-make-impl.lisp @@ -142,7 +142,7 @@ (defmethod make-sod-initializer-using-slot :slot slot :value-kind value-kind :value-form value-form - :location location + :location (file-location location) :pset pset)) (defmethod shared-initialize :after @@ -208,7 +208,7 @@ (defmethod make-sod-method-using-message :class class :type type :body body - :location location + :location (file-location location) :pset pset)) (defmethod sod-message-method-class @@ -226,7 +226,8 @@ (defmethod shared-initialize :after (every (lambda (arg) (or (eq arg :ellipsis) (argument-name arg) - (eq (argument-type arg) (c-type void)))) + (c-type-equal-p (argument-type arg) + c-type-void))) (c-function-arguments type))) (error "Abstract declarators not permitted in method definitions")))