From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 3 Sep 2013 15:42:50 +0000 (+0200)
Subject: Add RPLACA/D as functions.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=28497368589003d049952a50c10ebc93fe974024

Add RPLACA/D as functions.
---

diff --git a/src/list.lisp b/src/list.lisp
index b974cd0..58226f8 100644
--- 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))