From 28497368589003d049952a50c10ebc93fe974024 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 3 Sep 2013 17:42:50 +0200 Subject: [PATCH] Add RPLACA/D as functions. --- src/list.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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)) -- 1.7.10.4