/[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.44 by pmai, Fri Sep 9 19:36:34 2005 UTC revision 1.45 by rtoy, Fri Jun 30 18:41:22 2006 UTC
# Line 125  Line 125 
125           :datum object           :datum object
126           :expected-type 'long-float))           :expected-type 'long-float))
127    
128    #+double-double
129    (deferr object-not-double-double-float-error (object)
130      (error 'type-error
131             :function-name name
132             :datum object
133             :expected-type 'double-double-float))
134    
135  (deferr object-not-simple-string-error (object)  (deferr object-not-simple-string-error (object)
136    (error 'type-error    (error 'type-error
137           :function-name name           :function-name name
# Line 412  Line 419 
419           :datum object           :datum object
420           :expected-type '(simple-array double-float (*))))           :expected-type '(simple-array double-float (*))))
421    
422    #+double-double
423    (deferr object-not-simple-array-double-double-float-error (object)
424      (error 'type-error
425             :function-name name
426             :datum object
427             :expected-type '(simple-array double-double-float (*))))
428    
429  (deferr object-not-simple-array-complex-single-float-error (object)  (deferr object-not-simple-array-complex-single-float-error (object)
430    (error 'type-error    (error 'type-error
431           :function-name name           :function-name name
# Line 431  Line 445 
445           :datum object           :datum object
446           :expected-type '(simple-array (complex long-float) (*))))           :expected-type '(simple-array (complex long-float) (*))))
447    
448    #+double-double
449    (deferr object-not-simple-array-complex-double-double-float-error (object)
450      (error 'type-error
451             :function-name name
452             :datum object
453             :expected-type '(simple-array (complex double-double-float) (*))))
454    
455  (deferr object-not-complex-error (object)  (deferr object-not-complex-error (object)
456    (error 'type-error    (error 'type-error
457           :function-name name           :function-name name
# Line 462  Line 483 
483           :datum object           :datum object
484           :expected-type '(complex long-float)))           :expected-type '(complex long-float)))
485    
486    #+double-double
487    (deferr object-not-complex-double-double-float-error (object)
488      (error 'type-error
489             :function-name name
490             :datum object
491             :expected-type '(complex double-double-float)))
492    
493  (deferr object-not-weak-pointer-error (object)  (deferr object-not-weak-pointer-error (object)
494    (error 'type-error    (error 'type-error
495           :function-name name           :function-name name

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5