71268
topo
<string>functions</string>
(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 )
)
)
3437062740
#lispcafe
TRUE
1
madnif
<string>more lispy</string>
(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
3437063193
#lispcafe
TRUE