>>21 That just makes it indent by a single space. It's not the kind of fancy indentation that I'm looking for. Indentation like: (defun pickup (object) (cond ((member object (objects-at *location* *objects* *object-locations*)) (push (list object 'body) *object-locations*) ...