1.0.15.20: refactor "system locks" framework, one TIMER buglet

[sbcl.git] / src / code / list.lisp

diff --git a/src/code/list.lisp b/src/code/list.lisp
index 9f649a4..ca44632 100644 (file)
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -490,15 +490,15 @@
 \f
 ;;;; 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.