conditions.lisp 531 B

123456789101112131415161718192021
  1. ;; This software is Copyright (c) cage
  2. ;; cage grants you the rights to distribute
  3. ;; and use this software as governed by the terms
  4. ;; of the Lisp Lesser GNU Public License
  5. ;; (http://opensource.franz.com/preamble.html),
  6. ;; known as the LLGPL
  7. (in-package :cl-pslib-barcode)
  8. (defmacro defcond (type)
  9. `(define-condition ,(alexandria:format-symbol t "TEXT-~a" (string-upcase type))
  10. (,type)
  11. ((text
  12. :initarg :text
  13. :reader text))
  14. (:documentation "Error that set text")))
  15. (defcond error)
  16. (defcond warning)