The code is a bit big and chaotic, so i might have overlooked or misinterpreted something, but it looks like you store the "starting value" for the *error* function within the var: temperr
before asigning it your own function (setq *error* traperror)
Within the error trap (& elsewhere), the last thing you do is restore its original value. (Setq *error* temperr)
This way the problem might actually be caused by whatever is originaly there for the errortrapping.
Lets say you have 2 lisp, the first sets the *error* trap, using command, instead of command-s
The second is yours, storing the bad errortrap, using your own ones and reverting back to the wrong one set by lisp 1.
This (or something similar) is most likely (for now) as i didn't see any call to (command ...) from your traperror function with your posted code.
To prevent such errors and still keep the original error function, i personally always use a sub-function for errortrapping.
E.G.:
(defun c:IV (/ var var var)
(defun *error* (msg)
; do whatever is needed on error
)
; do whatever you wish your routine to do
)
