From 947f0ecbdeb98e4b5f53c68cb62e7d9cfcf03c60 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 8 Jul 2008 15:48:56 +0200 Subject: Replace SET-CAR and SET-CDR with RPLACA and RPLACD. --- list-functions.lisp | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'list-functions.lisp') diff --git a/list-functions.lisp b/list-functions.lisp index 9593118..464a9a4 100644 --- a/list-functions.lisp +++ b/list-functions.lisp @@ -163,6 +163,19 @@ ;(%deftype null args '(satisfies null)) +;;;;----------------------------------------------------------------- +;;;; 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)) -- cgit v1.2.3