/[cmucl]/src/code/interr.lisp
ViewVC logotype

Diff of /src/code/interr.lisp

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

revision 1.40 by gerd, Sun Mar 23 21:23:42 2003 UTC revision 1.41 by gerd, Mon Apr 21 15:37:24 2003 UTC
# Line 313  Line 313 
313           :format-arguments (list key)))           :format-arguments (list key)))
314    
315  (deferr invalid-array-index-error (array bound index)  (deferr invalid-array-index-error (array bound index)
316    (error 'simple-error    (error 'type-error
317           :function-name name           :function-name name
318           :format-control           :format-control
319           (cond ((zerop bound)           (cond ((zerop bound)

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5