Changeset 10078


Ignore:
Timestamp:
Jul 18, 2008, 1:50:34 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r10077 r10078  
    4444  `(car (the list ,x)))
    4545
     46(defmacro set-%car (x y)
     47  `(setf (car (the cons ,x)) ,y))
     48
    4649(defmacro %cdr (x)
    4750  `(cdr (the list ,x)))
     51
     52(defmacro set-%cdr (x y)
     53  `(setf (cdr (the cons ,x)) ,y))
    4854
    4955(defmacro %caar (x)
     
    570576(defsetf elt set-elt)
    571577(defsetf car set-car)
     578(defsetf %car set-%car)
    572579(defsetf first set-car)
    573580(defsetf cdr set-cdr)
     581(defsetf %cdr set-%cdr)
    574582(defsetf rest set-cdr)
    575583(defsetf uvref uvset)
Note: See TracChangeset for help on using the changeset viewer.