말은 에러함수인데요... 풀어서 정리하면 ^C을 입력받으면 실행하라는 것입니다.
결국 ^C을 입력받으면 실행되는 서브루틴입니다.
제가여러루틴중 액기스만 뽑아서 정리한구문입니다.
;->*error* start
 (defun *error* (msg)(princ "error: ")(princ msg)
 (setvar "osmode" os)
 (princ))
;-<*error* end
 
결국 아래와 같이 사용되구요
;->*error* start
(defun *error* (msg)(princ "error: ")(princ msg)
^C입력시 실행할 구문 삽입
(princ))
;-<*error* end
 
일반적으로 리습에서
.
(setq os (getvar "osmode")) ;1
(setvar "osmode" 0) ;2
.
.
.
(setvar "osmode" os) ;3
.
요렇게 형성되었을때 1,2번 실행후 ^C로 종료하면
오스냅이 0이 되고 마지막에 되돌리기 3번이 실행이 되지않지요...
이렇때 error함수에서 3번을 실행하는것입니다.