(setq item (backquote-process (car rest)))
(cond
((= (car item) 2)
- (if (null firstlist)
+ ;; Put the nonspliced items before the first spliced item
+ ;; into FIRSTLIST.
+ (if (null lists)
(setq firstlist list
list nil))
+ ;; Otherwise, put any preceding nonspliced items into LISTS.
(if list
(setq lists (cons (backquote-listify list '(0 . nil)) lists)))
(setq lists (cons (cdr item) lists))