define-proto: Fix a bug in the brach I just merged

diff --git a/define-proto.lisp b/define-proto.lisp
index edb4d96b5376d84d1e9764fd1334d5323188b025..9183af87a96456889ffead30067cbdfd1dc46593 100644 (file)
--- a/define-proto.lisp
+++ b/define-proto.lisp
@@ -454,7 +454,7 @@
                (appendf (proto-messages extends) (list model))
                (when extra-slot
                  (collect-form (gen-extend-field-forms extra-slot)))
-               (process-extend-field field)))
+               (process-extend-field extra-field)))
             (otherwise
              (multiple-value-bind (field slot idx)
                  (process-field field index :conc-name conc-name :alias-for alias-for)