|
@@ -2357,12 +2357,13 @@ parameters when merging lists."
|
|
|
(lambda (name)
|
|
|
(mapc
|
|
|
(lambda (param)
|
|
|
- (setf (cdr (assoc param params))
|
|
|
- (remove-if (lambda (pair) (equal (car pair) name))
|
|
|
- (cdr (assoc param params))))
|
|
|
- (setf params (remove-if (lambda (pair) (and (equal (car pair) param)
|
|
|
- (null (cdr pair))))
|
|
|
- params)))
|
|
|
+ (when (assoc param params)
|
|
|
+ (setf (cdr (assoc param params))
|
|
|
+ (remove-if (lambda (pair) (equal (car pair) name))
|
|
|
+ (cdr (assoc param params))))
|
|
|
+ (setf params (remove-if (lambda (pair) (and (equal (car pair) param)
|
|
|
+ (null (cdr pair))))
|
|
|
+ params))))
|
|
|
(list :colname-names :rowname-names)))
|
|
|
clearnames)
|
|
|
(mapc
|