Replace SET-CAR and SET-CDR with RPLACA and RPLACD.

1 files changed, 14 insertions, 1 deletions

diff --git a/list-functions.lisp b/list-functions.lisp
index 9593118..464a9a4 100644
--- a/list-functions.lisp
+++ b/list-functions.lisp
@@ -164,5 +164,18 @@
 
 
 ;;;;-----------------------------------------------------------------
+;;;; ACCESSORS
+;;;;-----------------------------------------------------------------
+(shadow '(rplaca rplacd))
+(unexport '(sys::rplaca sys::rplacd) (find-package :sys))
+
+(%defun rplaca args
+  (sys::rplaca (first args) (second args)))
+
+(%defun rplacd args
+  (sys::rplacd (first args) (second args)))
+
+
+;;;;-----------------------------------------------------------------
 (export '(cons car cdr list* first second third fourth fifth sixth
-          seventh eigthth ninth tenth consp listp null))
+          seventh eigthth ninth tenth consp listp null rplaca rplacd))