/[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.25 by wlott, Wed Apr 15 02:24:02 1992 UTC revision 1.26 by ram, Fri Feb 26 08:25:43 1993 UTC
# Line 279  Line 279 
279           :operands (list this that)))           :operands (list this that)))
280    
281  (deferr object-not-type-error (object type)  (deferr object-not-type-error (object type)
282    (error 'type-error    (error (if (and (%instancep object)
283                      (layout-invalid (%instance-layout object)))
284                 'layout-invalid
285                 'type-error)
286           :function-name name           :function-name name
287           :datum object           :datum object
288           :expected-type type))           :expected-type type))
289    
290    (deferr layout-invalid-error (object layout)
291      (error 'layout-invalid
292             :function-name name
293             :datum object
294             :expected-type (layout-class layout)))
295    
296  (deferr odd-keyword-arguments-error ()  (deferr odd-keyword-arguments-error ()
297    (error 'simple-error    (error 'simple-error
298           :function-name name           :function-name name
# Line 374  Line 383 
383           :datum object           :datum object
384           :expected-type 'weak-pointer))           :expected-type 'weak-pointer))
385    
386  (deferr object-not-structure-error (object)  (deferr object-not-instance-error (object)
387    (error 'type-error    (error 'type-error
388           :function-name name           :function-name name
389           :datum object           :datum object
390           :expected-type 'structure))           :expected-type 'instance))
391    
392    
393    

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5