- (gathering1 (collecting)
- (iterate ((arg (list-elements arguments-option))
- (int (list-elements intercept-lambda-list)))
- (unless (memq arg lambda-list-keywords)
- (gather1 `(,arg ',int)))))))
-
+ (loop for arg in arguments-option
+ for int in intercept-lambda-list
+ unless (memq arg lambda-list-keywords)
+ collect `(,arg ',int))))