structs: spurious hiding of defmeth: fix needed.

* eval.c (op_defun): There is a hidden reference to the
sys:defmeth function here, which should have been
updated in commit 268338c413144e0ae9aea2efb404d4e083dabd40
that renamed the function to define-method!
Caught this by incidental code inspection, browsing
through special forms in the context of working on the
compiler.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 35eac786..6cfd4a86 100644
--- a/eval.c
+++ b/eval.c
@@ -1863,7 +1863,7 @@ static val op_defun(val form, val env)
     uw_purge_deferred_warning(cons(sym_s, name));
     return name;
   } else if (car(name) == meth_s) {
-    val binding = lookup_fun(nil, intern(lit("defmeth"), system_package));
+    val binding = lookup_fun(nil, intern(lit("define-method"), system_package));
     val type_sym = second(name);
     val meth_name = third(name);
     val block = cons(block_s, cons(meth_name, body));