Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

clauses.
  • Loading branch information...
commit 2ebb77478cb5a568b2156c9319a7b550758f7d55 1 parent 2389f00
@akovalenko authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/code/defboot.lisp
View
8 src/code/defboot.lisp
@@ -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.
Something went wrong with that request. Please try again.