zl:1 - FTP

103 condition-bind
Examples:
(cond-every) => NIL
(cond-every ((> 2 3) (print "sister"»
((= 2 3) (print "brother"») => NIL
(cond-every ((equal 'mom 'mom) (princ "mother H»~
((equal 'dog 'cat) (princ "pet dog"»
((equal 'dad 'dad) (princ "father"»)
=> mother father"father"
(cond-every ((= 1 1) t) ((= 2 2) "yes!")
(otherwise "no"» => "yes!"
For a table of related items: See the section "Conditional Functions" in
Symbolics Common Lisp: Language Concepts.
condition-bind list &body body Special Form
condition-bind binds handlers for conditions and then evaluates its body
with those handlers bound. One of the handlers might be invoked if a condition
is signalled while the hody is being evaluated. The handlers bound
have dynamic scope.
The following simple example sets up application-specific handlers for two
standard error conditions, fs:file-not-found and fs:delete-failure.
(condition-bind ((fs:file-not-found 'my-fnf-handler)
(fs:delete-failure 'my-delete-handler»
(deletef pathname»
The format for condition-bind is:
(condi t ion-bi nd ((condition-flavor-l handler-l)
(condition-flavor-2 handler-2)
I
form-l
form-2
(condition-flavor-m handler-m»
form-n)
condition-flavor-j The name of a condition flavor or a list of names of condition
flavors. The condition-flavor-j need not be unique
or mutually exclusive. (See the section "Finding a
Handler" in Symbolics Common Lisp: Language Concepts.
Search order is explained in that section.)