From 67693e6adfc19db6870597003b9ff2bca6b92afa Mon Sep 17 00:00:00 2001 From: Bike Date: Thu, 12 Sep 2024 16:18:06 -0400 Subject: [PATCH] Fix miscopied (setf inline) definition --- Code/Basic/basic.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Code/Basic/basic.lisp b/Code/Basic/basic.lisp index db16370..0cb1f98 100644 --- a/Code/Basic/basic.lisp +++ b/Code/Basic/basic.lisp @@ -74,7 +74,7 @@ (if (null entry) nil (inline-data entry)))) -(defmethod (setf sys:operator-inline) (new client (env basic-environment) name) +(defmethod (setf sys:operator-inline-data) (new client (env basic-environment) name) (setf (inline-data (ensure-operator-entry client name env)) new)) (defmethod sys:operator-ftype (client (env basic-environment) name)