X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/981b6fb624186a54320cea34e53e16276aee2bdb..8d3d1674f1a0b1dabd5877dcb0bd503fe2bcc1d9:/src/class-make-impl.lisp diff --git a/src/class-make-impl.lisp b/src/class-make-impl.lisp index f7231ef..dba6965 100644 --- a/src/class-make-impl.lisp +++ b/src/class-make-impl.lisp @@ -124,7 +124,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 @@ -190,7 +190,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 @@ -208,7 +208,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")))