- (cons (set-table-if-needed (car val))))))
- (loop for i from 0 below (length order-by-list)
- for id = (nth i order-by-list)
- do (set-table-if-needed id)))
+ (cons (cons (set-table-if-needed (car val))
+ (cdr val)))
+ (t val))))
+ (setf order-by-list
+ (loop for i from 0 below (length order-by-list)
+ for id in order-by-list
+ collect (set-table-if-needed id))))