Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents 1c2a46ea1f78
children 3660d327399f
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
1324 (setq ,argument 1324 (setq ,argument
1325 (args-out-of-range ,argument ,min ,max))) 1325 (args-out-of-range ,argument ,min ,max)))
1326 (let ((newsym (gensym))) 1326 (let ((newsym (gensym)))
1327 `(let ((,newsym ,argument)) 1327 `(let ((,newsym ,argument))
1328 (if (not (argument-in-range-p ,newsym ,min ,max)) 1328 (if (not (argument-in-range-p ,newsym ,min ,max))
1329 (signal-error 'args-out-of-range ,newsym ,min ,max)))))) 1329 (signal-error 'args-out-of-range (list ,newsym ,min ,max)))))))
1330 1330
1331 (defun signal-error (error-symbol data) 1331 (defun signal-error (error-symbol data)
1332 "Signal a non-continuable error. Args are ERROR-SYMBOL, and associated DATA. 1332 "Signal a non-continuable error. Args are ERROR-SYMBOL, and associated DATA.
1333 An error symbol is a symbol defined using `define-error'. 1333 An error symbol is a symbol defined using `define-error'.
1334 DATA should be a list. Its elements are printed as part of the error message. 1334 DATA should be a list. Its elements are printed as part of the error message.