Fix miscopied (setf inline) definition

s-expressionists · Sep 12, 2024 · 67693e6 · 67693e6
1 parent d41c8b9
commit 67693e6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)