Dudas sobre unas funciones de internet

Hola muchachos como están.
Tengo una duda con estas funciones de la pagina de Togores.

http://www.togores.net/vl/curso/lisp/bases/funciones/usuario/defun-1/redondeo

Aparecen tres funciones de redondeo.

Pero cuando trato de aplicar la función cl-round me dice que que ; error: no function definition: RND
Mi duda es si ahí en vez de ser rnd debería llevar la función round o debe ser otra función.

Gracias.

Me imagino que debe ser

(defun round (num)
(read (rtos num 2 0))
) ;_ fin de defun

Y basta con probar.

Hola hermano como estas.

Si lo probe, pero nada como consultar a los que saben mas. Jejeje.

Gracias.

Buenos dias, Mas vale tarde que nunca
Tal vez ya descifraste el problema, pero como sea, tienes que cambiar el nombre de la funcion de rnd a round

(defun cl-round (num / tmp)
(if
(and
(not (evenp (setq tmp (round num))))
(= (abs (rem num 1)) 0.5)
)
(if (minusp tmp)(setq tmp (1+ tmp))(setq tmp (1- tmp)))
) ;_ fin de if
tmp
) ;_ fin de defun

Hola Enrique gracias por tu colaboración.

Si así siempre lo hice, fue cuestión de confirmar y que no quedaran dudas. Jejejeje.

Mil gracias.

Cualquier pregunta de internet recivira mil respuestas jajaja los de la generacion del milenio nacimos dentro del internet