|
@@ -783,7 +783,7 @@ the current subtree."
|
|
lst)
|
|
lst)
|
|
(norm (arg)
|
|
(norm (arg)
|
|
(let ((v (if (and (listp (cdr arg)) (null (cddr arg)))
|
|
(let ((v (if (and (listp (cdr arg)) (null (cddr arg)))
|
|
- (copy-seq (cdr arg))
|
|
|
|
|
|
+ (copy-sequence (cdr arg))
|
|
(cdr arg))))
|
|
(cdr arg))))
|
|
(when (and v (not (and (sequencep v)
|
|
(when (and v (not (and (sequencep v)
|
|
(not (consp v))
|
|
(not (consp v))
|