(defun inicio()
(setq A ())
(setq c 0)
)
(defun ingresovalores()
(print "Ingrese un número: ")
(setq c (+ c 1))
(setq d (read))
(setq A (cons d A))
)
(defun mostrarpositivos()
(setq b 0)
(do-while (< b c)
(cond ((> (nth b A) 0) (print (nth b A)) (setq b (+ b 1)))
(t (setq b (+ b 1)))
))
(print " ")
)
quisiera saber xq cuando ejecuto este programa y hago el llamado ala funcion mostrarpositivos
me sale Undefined function break (cond ((> (nth b A) 0) (print (nth b A)) (setq b (+ b 1))) (t (setq b (+ b 1)))
