/[gcl]/gcl/lsp/gcl_serror.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_serror.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Thu Jan 8 23:28:34 2004 UTC revision 1.4 by camm, Fri Jun 10 15:31:55 2005 UTC
# Line 148  signaled at this point in the stack.  Fo Line 148  signaled at this point in the stack.  Fo
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)
# Line 161  signaled at this point in the stack.  Fo Line 162  signaled at this point in the stack.  Fo
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26