Changeset 10078
- Timestamp:
- Jul 18, 2008, 1:50:34 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/lib/macros.lisp
r10077 r10078 44 44 `(car (the list ,x))) 45 45 46 (defmacro set-%car (x y) 47 `(setf (car (the cons ,x)) ,y)) 48 46 49 (defmacro %cdr (x) 47 50 `(cdr (the list ,x))) 51 52 (defmacro set-%cdr (x y) 53 `(setf (cdr (the cons ,x)) ,y)) 48 54 49 55 (defmacro %caar (x) … … 570 576 (defsetf elt set-elt) 571 577 (defsetf car set-car) 578 (defsetf %car set-%car) 572 579 (defsetf first set-car) 573 580 (defsetf cdr set-cdr) 581 (defsetf %cdr set-%cdr) 574 582 (defsetf rest set-cdr) 575 583 (defsetf uvref uvset)
Note: See TracChangeset
for help on using the changeset viewer.