148 |
|
|
149 |
(defun #. (if (boundp '*error-handler-function*) *error-handler-function* 'joe) |
(defun #. (if (boundp '*error-handler-function*) *error-handler-function* 'joe) |
150 |
(&rest error-handler-args) |
(&rest error-handler-args) |
151 |
|
(declare (:dynamic-extent error-handler-args)) |
152 |
(when (equal error-handler-args *error-handler-args*) |
(when (equal error-handler-args *error-handler-args*) |
153 |
(format t "Error handler called recursively ~S~%" |
(format t "Error handler called recursively ~S~%" |
154 |
error-handler-args) |
error-handler-args) |
162 |
:string (fifth error-handler-args) |
:string (fifth error-handler-args) |
163 |
:function (third error-handler-args) |
:function (third error-handler-args) |
164 |
:continue-string (fourth error-handler-args) |
:continue-string (fourth error-handler-args) |
165 |
:format-args |
:format-args (nthcdr 5 error-handler-args) |
166 |
(copy-list (nthcdr 5 error-handler-args)) |
:error-handler-args error-handler-args))) |
|
:error-handler-args (copy-list error-handler-args)))) |
|
167 |
(cond (*catch-error* (throw :any-error err)) |
(cond (*catch-error* (throw :any-error err)) |
168 |
((let (flag) (do ((i 0 (the fixnum (1+ i))) |
((let (flag) (do ((i 0 (the fixnum (1+ i))) |
169 |
(end (the fixnum(fill-pointer (the array |
(end (the fixnum(fill-pointer (the array |