From 910df69f0a0d7d10995b0182fb72eb439e6e578b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 14 Mar 2018 20:08:37 -0700 Subject: 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. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); -- cgit v1.2.3