But your code only make first cell of x to be destructive.
(let insorted (insert-sorted < 2 x) (scar x (car insorted)) (scdr x (cdr insorted)))