- "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
- (let ((arg-list-name (gensym "ARG-LIST-")))
+ "Bind the variables in LAMBDA-LIST to the corresponding values in the
+tree structure resulting from the evaluation of EXPRESSION."
+ (let ((whole-name (gensym "WHOLE")))