Changeset 10078

Timestamp:

Jul 18, 2008, 1:50:34 PM (13 years ago)

Author:

gb

Message:

Add SET-%CAR, SET-%CDR macros, make them the SETF inverses of %CAR, %CDR.

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (2 diffs)

branches/working-0711/ccl/lib/macros.lisp

@@ -44 +44 @@
   `(car (the list ,x)))
 
+(defmacro set-%car (x y)
+  `(setf (car (the cons ,x)) ,y))
+
 (defmacro %cdr (x)
   `(cdr (the list ,x)))
+
+(defmacro set-%cdr (x y)
+  `(setf (cdr (the cons ,x)) ,y))
 
 (defmacro %caar (x)
@@ -570 +576 @@
 (defsetf elt set-elt)
 (defsetf car set-car)
+(defsetf %car set-%car)
 (defsetf first set-car)
 (defsetf cdr set-cdr)
+(defsetf %cdr set-%cdr)
 (defsetf rest set-cdr)
 (defsetf uvref uvset)