src/frontend.lisp: Report an error if no output types are requested.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index b9543fdeaf200c827c9f0c2cfe1436be931df412..6f6caad5db63b83da9a6ef41449321af92457ae7 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -542,7 +542,7 @@ (defclass standard-effective-method (simple-effective-method) ()
 (defmethod primary-method-class ((message standard-message))
   'delegating-direct-method)
 
 (defmethod primary-method-class ((message standard-message))
   'delegating-direct-method)
 

-(defmethod message-effective-method-class ((message standard-message))
+(defmethod sod-message-effective-method-class ((message standard-message))

   'standard-effective-method)
 
 (defmethod simple-method-body
   'standard-effective-method)
 
 (defmethod simple-method-body