Permalink
Browse files

* src/code/defboot.lisp (%handler-bind): correct splicing of typecase

clauses.
  • Loading branch information...
1 parent 2389f00 commit 2ebb77478cb5a568b2156c9319a7b550758f7d55 @akovalenko committed Nov 15, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/code/defboot.lisp
View
@@ -599,10 +599,10 @@ evaluated as a PROGN."
(condition (sb!xc:gensym "CONDITION")))
`(dx-flet ((,name (,condition)
(typecase ,condition
- ,(mapcar (lambda (binding)
- (destructuring-bind (type handler) binding
- `(,type (funcall ,handler ,condition))))
- bindings))))
+ ,@(mapcar (lambda (binding)
+ (destructuring-bind (type handler) binding
+ `(,type (funcall ,handler ,condition))))
+ bindings))))
(let ((*handler-clusters*
(cons (function ,name)
*handler-clusters*)))

0 comments on commit 2ebb774

Please sign in to comment.