/[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.41 by gerd, Mon Apr 21 15:37:24 2003 UTC revision 1.42 by gerd, Mon May 26 20:20:32 2003 UTC
# Line 315  Line 315 
315  (deferr invalid-array-index-error (array bound index)  (deferr invalid-array-index-error (array bound index)
316    (error 'type-error    (error 'type-error
317           :function-name name           :function-name name
318             :datum index
319             :expected-type `(integer 0 (,bound))
320           :format-control           :format-control
321           (cond ((zerop bound)           (cond ((zerop bound)
322                  "Invalid array index, ~D for ~S.  Array has no elements.")                  "Invalid array index, ~D for ~S.  Array has no elements.")

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

  ViewVC Help
Powered by ViewVC 1.1.5