- (setq all-dummies (append all-dummies dummies)
- all-vals (append all-vals vals)
- newvals (append newvals newval))
+ ;; ANSI 5.1.2.3 explains this logic quite precisely. --
+ ;; CSR, 2004-06-29
+ (setq all-dummies (append all-dummies dummies (cdr newval))
+ all-vals (append all-vals vals
+ (mapcar (constantly nil) (cdr newval)))
+ newvals (append newvals (list (car newval))))