| commit | d67b1ae9705c7d18fe385ee5beff49c7456c8b57 | |
| author | Kris Katterjohn <katterjohn@gmail.com> | |
| Sun, 16 Jan 2022 18:03:54 +0000 (16 13:03 -0500) | ||
| committer | Kris Katterjohn <katterjohn@gmail.com> | |
| Sun, 16 Jan 2022 18:03:54 +0000 (16 13:03 -0500) | ||
| tree | d39b128355ef6b113fa710b20e5f675071cb1d5f | treesnapshot (tar.gz zip) |
| parent | 0be175002ad58b002b1aacce3b24c28239d54b36 | commitdiff |
Use UNWIND-PROTECT instead of PROG1 for catch
catch wants to call ERRLFUN1 to clean up, so let's use
UNWIND-PROTECT instead of PROG1 to ensure that this happens.
The use of PROG1 here is likely because this ancient code was
written before UNWIND-PROTECT was available.
No problems with the test suite or share test suite.
catch wants to call ERRLFUN1 to clean up, so let's use
UNWIND-PROTECT instead of PROG1 to ensure that this happens.
The use of PROG1 here is likely because this ancient code was
written before UNWIND-PROTECT was available.
No problems with the test suite or share test suite.
| src/suprv1.lisp | diffblobblamehistory |