Changeset 10081


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

Propagate r10077/r10078 (%car/%cdr: incorrect type in THE, define
setf inverses for them) to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r9879 r10081  
    4242
    4343(defmacro %car (x)
    44   `(car (the cons ,x)))
     44  `(car (the list ,x)))
     45
     46(defmacro set-%car (x y)
     47  `(setf (car (the cons ,x)) ,y))
    4548
    4649(defmacro %cdr (x)
    47   `(cdr (the cons ,x)))
     50  `(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.