(valid-instantiator-p (cdr inst-pair) specifier-type))
;; case (c)
inst-pair)
-
+
(t
(if noerror t
(signal 'error (list "Invalid specifier tag set"
(add-spec-list-to-specifier specifier spec-list))
(force
(set-specifier specifier
- (apply func
- (or (and (valid-specifier-domain-p locale)
- (specifier-instance specifier))
- default) args)
- locale tag-set)))))
+ (apply func
+ (or (and (valid-specifier-domain-p locale)
+ (specifier-instance specifier))
+ default) args)
+ locale tag-set)))))
(defmacro let-specifier (specifier-list &rest body)
"Add specifier specs, evaluate forms in BODY and restore the specifiers.
(or (valid-specifier-tag-p 'tty)
(define-specifier-tag 'tty (lambda (dev) (eq (device-type dev) 'tty))))
(or (valid-specifier-tag-p 'mswindows)
- (define-specifier-tag 'mswindows (lambda (dev)
+ (define-specifier-tag 'mswindows (lambda (dev)
(eq (device-type dev) 'mswindows))))
;; Add special tag for use by initialization code. Code that