From 7f6eabe1f116a80832f1628ac5d144a6ad9c3890 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 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/define-proto.lisp b/define-proto.lisp index 1d7107cc..981c8bd6 100644 --- 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)