/[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.31 by dtc, Sat Nov 1 22:58:13 1997 UTC revision 1.32 by dtc, Sat Nov 15 04:38:49 1997 UTC
# Line 418  Line 418 
418           :expected-type 'complex))           :expected-type 'complex))
419    
420  #+complex-float  #+complex-float
421    (deferr object-not-complex-rational-error (object)
422      (error 'type-error
423             :function-name name
424             :datum object
425             :expected-type '(complex rational)))
426    
427    #+complex-float
428  (deferr object-not-complex-single-float-error (object)  (deferr object-not-complex-single-float-error (object)
429    (error 'type-error    (error 'type-error
430           :function-name name           :function-name name

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.5