Add RPLACA/D as functions.

[jscl.git] / src / list.lisp

diff --git a/src/list.lisp b/src/list.lisp
index b974cd0..58226f8 100644 (file)
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -39,6 +39,12 @@
 
 (defun cdr (x) (cdr x))
 
+(defun rplaca (cons x)
+  (rplaca cons x))
+
+(defun rplacd (cons x)
+  (rplacd cons x))
+
 (defun first   (x) (car    x))
 (defun second  (x) (cadr   x))
 (defun third   (x) (caddr  x))