- (define-error-type TYPNAM [TYPSIG])syntax
- (define-error-type/type TYPNAM [TYPSIG])syntax
- TYPNAM
- symbol
- TYPSIG
- (or symbol (list-of TYPSIG))
Creates a procedure definition for error-TYPNAM with the signature of the above error procedures. The type-name is either TYPSIG, when present, or TYPNAM. The define-check+error-type/type variant adds a procedure type signature.
(define-error-type hash-table) ;=> ;(define (error-hash-table loc obj #!optional argnam) ; (error-argument-type loc obj 'hash-table argnam) ) (define-error-type byte-order "symbol in {big-endian little-endian}") ;=> ;(define (error-byte-order loc obj #!optional argnam) ; (error-argument-type loc obj "symbol in {big-endian little-endian}" argnam) )