Do not submit

PiperOrigin-RevId: 452427185
qitab · Jun 2, 2022 · 7f6eabe · 7f6eabe
1 parent 806ed0c
commit 7f6eabe
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/define-proto.lisp b/define-proto.lisp
@@ -469,7 +469,10 @@ Parameters:
   (let ((public-accessor-name (proto-slot-function-name proto-type public-slot-name :get))
         (is-set-accessor (fintern "~A-%%IS-SET" proto-type))
         (hidden-accessor-name (fintern "~A-~A" proto-type slot-name))
-        (has-function-name (proto-slot-function-name proto-type public-slot-name :has))
+        (has-function-name (proto-slot-function-name
+                            proto-type public-slot-name
+                            (if (eq (proto-syntax *current-file-descriptor*) :proto3)
+                                :has* :has)))
         (default-form (get-default-form (proto-type field)
                                         (proto-default field)
                                         (proto-container field)