Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files ir1: Declare UNWIND-PROTECT cleanup functions to be dynami…


  * Since we now have the analysis to do the right thing
for these functions, why not take advantage of it?
  • Loading branch information...
commit 97f956abb60d853e20fc7018f6675a6348927103 1 parent 48646de
Alastair Bridgewater authored
Showing with 2 additions and 1 deletion.
  1. +1 −0  src/compiler/ir1-translators.lisp
  2. +1 −1  version.lisp-expr
1  src/compiler/ir1-translators.lisp
@@ -1083,6 +1083,7 @@ due to normal completion or a non-local exit such as THROW)."
;; ,CLEANUP-FUN should probably be declared DYNAMIC-EXTENT,
;; and something can be done to make %ESCAPE-FUN have
;; dynamic extent too.
+ (declare (dynamic-extent #',cleanup-fun))
(block ,drop-thru-tag
(multiple-value-bind (,next ,start ,count)
(block ,exit-tag
2  version.lisp-expr
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)

0 comments on commit 97f956a

Please sign in to comment.
Something went wrong with that request. Please try again.