Simplified:
(defun f139 (x) (list (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) (list nil) x x x x x x x x (setf (car x) 0) (setf (cdr x) 0)))
Simplified:
(defun f139 (x)
(list (list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
(list nil)
x x x x x x x x
(setf (car x) 0)
(setf (cdr x) 0)))