- `(progn
- (handler-case
- (compile nil '(lambda ,arglist ,@body))
- (sb-ext:compiler-note (e)
- (error "bad compiler note for ~S:~% ~A" ',body e)))
- (catch :got-note
- (handler-case
- (compile nil '(lambda ,arglist (declare (optimize speed))
- ,@body))
- (sb-ext:compiler-note (e) (throw :got-note nil)))
- (error "missing compiler note for ~S" ',body)))))
+ `(progn
+ (handler-case
+ (compile nil '(lambda ,arglist ,@body))
+ (sb-ext:compiler-note (e)
+ (error "bad compiler note for ~S:~% ~A" ',body e)))
+ (catch :got-note
+ (handler-case
+ (compile nil '(lambda ,arglist (declare (optimize speed))
+ ,@body))
+ (sb-ext:compiler-note (e) (throw :got-note nil)))
+ (error "missing compiler note for ~S" ',body)))))