From 8cecc7c4cd41617bd8a47633652125a7389212fa Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Sat, 20 Oct 2012 14:07:50 +0200
Subject: [PATCH] Add missing eval-when :execute for sbcl *features* frobbing.

---
 md5.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/md5.lisp b/md5.lisp
index d804369..35a6470 100644
--- a/md5.lisp
+++ b/md5.lisp
@@ -796,5 +796,5 @@ according to my additional test suite")
   (setq ext:*inline-expansion-limit* *old-expansion-limit*))
 
 #+sbcl
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :execute)
   (setq *features* *old-features*))