15.1 Conses

These are the basic operations on conses viewed as pairs rather than as the constituents of a list.

[Function] car list

This returns the car of list, which must be a cons or (); that is, list must satisfy the predicate listp. By definition, the car of () is (). If the cons is regarded as the first cons of a list, then car returns the first element of the list. For example:

(car ’(a b c))  a

See first. The car of a cons may be altered by using rplaca or setf.


[Function] cdr list

This returns the cdr of list, which must be a cons or (); that is, list must satisfy the predicate listp. By definition, the cdr of () is (). If the cons is regarded as the first cons of a list, then cdr returns the rest of the list, which is a list with all elements but the first of the original list. For example:

(cdr ’(a b c))  (b c)

See rest. The cdr of a cons may be altered by using rplacd or setf.


[Function] caar list
[Function] cadr list
[Function] cdar list
[Function] cddr list
[Function] caaar list
[Function] caadr list
[Function] cadar list
[Function] caddr list
[Function] cdaar list
[Function] cdadr list
[Function] cddar list
[Function] cdddr list
[Function] caaaar list
[Function] caaadr list
[Function] caadar list
[Function] caaddr list
[Function] cadaar list
[Function] cadadr list
[Function] caddar list
[Function] cadddr list
[Function] cdaaar list
[Function] cdaadr list
[Function] cdadar list
[Function] cdaddr list
[Function] cddaar list
[Function] cddadr list
[Function] cdddar list
[Function] cddddr list

All of the compositions of up to four car and cdr operations are defined as separate Common Lisp functions. The names of these functions begin with c and end with r, and in between is a sequence of a and d letters corresponding to the composition performed by the function. For example:

(cddadr x) is the same as (cdr (cdr (car (cdr x))))

If the argument is regarded as a list, then cadr returns the second element of the list, caddr the third, and cadddr the fourth. If the first element of a list is a list, then caar is the first element of the sublist, cdar is the rest of that sublist, and cadar is the second element of the sublist, and so on.

As a matter of style, it is often preferable to define a function or macro to access part of a complicated data structure, rather than to use a long car/cdr string. For example, one might define a macro to extract the list of parameter variables from a lambda-expression:

(defmacro lambda-vars (lambda-exp) ‘(cadr ,lambda-exp))

and then use lambda-vars for this purpose instead of cadr. See also defstruct, which will automatically define new record data types and access functions for instances of them.

Any of these functions may be used to specify a place for setf.


[Function] cons x y

cons is the primitive function to create a new cons whose car is x and whose cdr is y. For example:

(cons ’a ’b)  (a . b)
(cons ’a (cons ’b (cons ’c ’())))  (a b c)
(cons ’a ’(b c d))  (a b c d)

cons may be thought of as creating a cons, or as adding a new element to the front of a list.


[Function] tree-equal x y &key :test :test-not

This is a predicate that is true if x and y are isomorphic trees with identical leaves, that is, if x and y are atoms that satisfy the test (by default eql), or if they are both conses and their car’s are tree-equal and their cdr’s are tree-equal. Thus tree-equal recursively compares conses (but not any other objects that have components). See equal, which does recursively compare certain other structured objects, such as strings.

X3J13 voted in January 1989 to restrict user side effects; see section 7.9.