error

(defun *error* (message) ...)

Function the program calls when a routine fails, with the error message, before unwinding the stack: the local variables of the running functions still have their values. Used to restore variables and close files. Without *error*, the program writes ; error: message.

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