;;--------------------------------------------------------------------
;;  Nuclear codes
;;--------------------------------------------------------------------

(defroute "/codigos" ()
  (let ((codigos (with-connection (db :agenda) (retrieve-all (select :* (from :codigo_nuclear) (order-by :id))))))
    (loop for elemento in codigos
      do (setf (getf elemento :fecha) (fecha-completa (getf elemento :fecha))))
    (render #P"codigos/index.html" (list :codigos codigos))))