From 88d3a3b1de72511e951cc522f68502e98b1da2f5 Mon Sep 17 00:00:00 2001 From: Common Lisp at Google Date: Wed, 1 Jun 2022 18:02:21 -0700 Subject: [PATCH] Do not submit PiperOrigin-RevId: 452427185 --- define-proto.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/define-proto.lisp b/define-proto.lisp index 1d7107cc..bd976db8 100644 --- a/define-proto.lisp +++ b/define-proto.lisp @@ -469,7 +469,9 @@ 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 (if (eq (proto-syntax *current-file-descriptor*) :proto3) + (gensym "proto3-has-function") + (proto-slot-function-name proto-type public-slot-name :has))) (default-form (get-default-form (proto-type field) (proto-default field) (proto-container field)