X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/fd040f066b906ce63396b9703bc16d32bcc5204e..3b92d2b13d6784a8e30babcf6def39d2ba05082f:/src/class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 806de35..8d1d93e 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -185,7 +185,7 @@ (defmethod hook-output progn ((class sod-class) (reason (eql :h)) sequencer)
 	     (when varargsp
 	       (format stream "#ifdef SOD__HAVE_VARARGS_MACROS~%"))
 	     (format stream "#define ~A(~{~A~^, ~}) ~
-				   ~A->_vt->~A.~A(~{~A~^, ~})~%"
+				   (~A)->_vt->~A.~A(~{~A~^, ~})~%"
 		     (message-macro-name class entry)
 		     (nreverse in-names)
 		     me
@@ -654,15 +654,6 @@ (defmethod hook-output progn
 	       (vtable-name class chain-head)
 	       (sod-class-nickname chain-tail))))))
 
-(defgeneric find-class-initializer (slot class)
-  (:method ((slot effective-slot) (class sod-class))
-    (let ((dslot (effective-slot-direct-slot slot)))
-      (or (some (lambda (super)
-		  (find dslot (sod-class-class-initializers super)
-			:key #'sod-initializer-slot))
-		(sod-class-precedence-list class))
-	  (effective-slot-initializer slot)))))
-
 (defgeneric output-class-initializer (slot instance stream)
   (:method ((slot sod-class-effective-slot) (instance sod-class) stream)
     (let ((func (effective-slot-initializer-function slot))