setf-elt -> (setf elt)

clasp-developers · Oct 16, 2023 · 9699663 · 9699663
1 parent 9baf8a2
commit 9699663
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/src/core/sequence.cc b/src/core/sequence.cc
@@ -158,12 +158,12 @@ CL_DEFUN T_sp cl__elt(T_sp sequence, size_t index) {
   }
 };
 
-
-CL_LAMBDA(sequence index value);
+CL_NAME("ELT");
+CL_LAMBDA(value sequence index);
 CL_DECLARE();
 CL_DOCSTRING(R"dx(setfElt)dx");
 DOCGROUP(clasp);
-CL_DEFUN T_sp core__setf_elt(T_sp sequence, size_t index, T_sp value) {
+CL_DEFUN_SETF T_sp core__setf_elt(T_sp value, T_sp sequence, size_t index) {
   if (sequence.consp()) {
     sequence.unsafe_cons()->setf_elt(index, value);
     return value;

diff --git a/src/lisp/kernel/cleavir/transform.lisp b/src/lisp/kernel/cleavir/transform.lisp
@@ -564,7 +564,7 @@ Optimizations are available for any of:
 #+(or)
 (progn
 (deftransform elt ((seq list) n) '(nth n seq))
-(deftransform core:setf-elt ((seq list) n value) '(setf (nth n seq) value))
+(deftransform (setf elt) (value (seq list) n) '(setf (nth n seq) value))
 )
 
 (deftransform reverse (((x list))) '(core:list-reverse x))

diff --git a/src/lisp/kernel/lsp/setf.lisp b/src/lisp/kernel/lsp/setf.lisp
@@ -371,7 +371,6 @@ by (DOCUMENTATION 'SYMBOL 'SETF)."
 
 (defsetf bit (array &rest indices) (value) `(setf (aref ,array ,@indices) ,value))
 (defsetf sbit (array &rest indices) (value) `(setf (aref ,array ,@indices) ,value))
-(defsetf elt setf-elt)
 (defsetf symbol-value set)
 (defsetf nth (n l) (v) `(progn (rplaca (nthcdr ,n ,l) ,v) ,v))