condition.lisp

   1 (in-package "C")
   2
   3 (define-condition lex-condition ()
   4   ((str :reader lex-condition-string :initarg :string :initform (error "string required") :type string)
   5    (pos :reader lex-condtiion-pos :initarg :pos :initform (error "pos required") :type fixnum)))
   6
   7 (define-condition trigraph-lex-condition (lex-condition)
   8   ())
   9
  10 (define-condition c++-comment-lex-condition (lex-condition)
  11   ())
  12
  13 (define-condition lex-error (error)
  14   ((str :reader lex-error-string :initarg :string :initform (error "string required") :type string)
  15    (pos :reader lex-error-pos :initarg :pos :initform (error "pos required") :type fixnum)))
  16
  17 (define-condition unterminated-comment-lex-error (lex-error)
  18   ())