diff options
Diffstat (limited to 'list-functions.lisp')
| -rw-r--r-- | list-functions.lisp | 15 |
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)) |