(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 )  
	)
  )

(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