X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=ca4463235947df4ae3cc7507e4ecd3724c214798;hb=068cf4b55af3f8f8acf2c7c06869441612261cd4;hp=9f649a400bba680df4d12ac31c8f795d0263d24e;hpb=6e332c91239622ffa95acbb3d2d69b8995265aa9;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index 9f649a4..ca44632 100644
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -490,15 +490,15 @@
 
 ;;;; functions to alter list structure
 
-(defun rplaca (x y)
+(defun rplaca (cons x)
   #!+sb-doc
-  "Change the CAR of X to Y and return the new X."
-  (rplaca x y))
+  "Change the CAR of CONS to X and return the CONS."
+  (rplaca cons x))
 
-(defun rplacd (x y)
+(defun rplacd (cons x)
   #!+sb-doc
-  "Change the CDR of X to Y and return the new X."
-  (rplacd x y))
+  "Change the CDR of CONS to X and return the CONS."
+  (rplacd cons x))
 
 ;;; The following are for use by SETF.