(defun creapush-pop ()
  (cons (random-elt2
         '((cons 'CL-OPENGL:ROTATE (cons 122 (cons 1233 (cons 15  (cons 15 nil) ))))
           (cons 'CL-OPENGL:TRANSLATE (cons 1 (cons 2 (cons 1.3  nil) )))  
           (cons 'CL-OPENGL:TRANSLATE (cons 0 (cons 6 (cons 0  nil) )))
           (cons 'glut:solid-sphere (cons 6.529d0 nil))
           ;;(glut:solid-sphere 6.529d0 13 3)))
        (cons '(gl:pop-matrix) nil )))

(let ((temp (creapush-pop)))
  (first temp) ; your first part
  (second temp)) ; the second part of your list

good luck topo