error

(defun *error* (mensaje) ...)

Función que el programa llama cuando una rutina falla, con el mensaje de error, antes de deshacer la pila: las variables locales de las funciones en curso aún tienen su valor. Sirve para restaurar variables y cerrar archivos. Sin *error*, el programa escribe ; error: mensaje.

(defun *error* (msg)
  (if (/= msg "Function cancelled") (princ (strcat "\nError: " msg)))
  (princ))