/[gcl]/gcl/clcs/gcl_clcs_condition_definitions.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_condition_definitions.lisp

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

revision 1.3 by camm, Wed Jun 29 04:12:50 2005 UTC revision 1.4 by camm, Wed Sep 7 02:36:17 2005 UTC
# Line 117  Line 117 
117  (DEFINE-CONDITION PARSE-ERROR (ERROR)  (DEFINE-CONDITION PARSE-ERROR (ERROR)
118    ())    ())
119    
120    (DEFINE-CONDITION PRINT-NOT-READABLE (ERROR)
121      ())
122    
123  (DEFINE-CONDITION STREAM-ERROR (ERROR)  (DEFINE-CONDITION STREAM-ERROR (ERROR)
124    #-(or clos pcl)    #-(or clos pcl)
125    (STREAM)    (STREAM)
# Line 124  Line 127 
127    ((STREAM :initarg :STREAM    ((STREAM :initarg :STREAM
128             :reader STREAM-ERROR-STREAM)))             :reader STREAM-ERROR-STREAM)))
129    
130    (DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR)
131      ())
132    
133  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)
134    ()    ()
135    (:REPORT (LAMBDA (CONDITION STREAM)    (:REPORT (LAMBDA (CONDITION STREAM)
# Line 164  Line 170 
170    (:REPORT (LAMBDA (CONDITION STREAM)    (:REPORT (LAMBDA (CONDITION STREAM)
171               (FORMAT STREAM "The variable ~S is unbound."               (FORMAT STREAM "The variable ~S is unbound."
172                       (CELL-ERROR-NAME CONDITION)))))                       (CELL-ERROR-NAME CONDITION)))))
173    
174    (DEFINE-CONDITION UNBOUND-SLOT (CELL-ERROR)
175      ()
176      (:REPORT (LAMBDA (CONDITION STREAM)
177                 (FORMAT STREAM "The slot ~S is unbound."
178                         (CELL-ERROR-NAME CONDITION)))))
179        
180  (DEFINE-CONDITION UNDEFINED-FUNCTION (CELL-ERROR)  (DEFINE-CONDITION UNDEFINED-FUNCTION (CELL-ERROR)
181    ()    ()
# Line 184  Line 196 
196  (DEFINE-CONDITION FLOATING-POINT-OVERFLOW  (ARITHMETIC-ERROR)  (DEFINE-CONDITION FLOATING-POINT-OVERFLOW  (ARITHMETIC-ERROR)
197    ())    ())
198    
199    (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION  (ARITHMETIC-ERROR)
200      ())
201    
202    (DEFINE-CONDITION FLOATING-POINT-INEXACT  (ARITHMETIC-ERROR)
203      ())
204    
205  (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW (ARITHMETIC-ERROR)  (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW (ARITHMETIC-ERROR)
206    ())    ())
207    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26