src/: Wrap functionish bodies in an appropriately named `block'.

[sod] / src / utilities.lisp

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 023fc60..dfe2454 100644 (file)
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -825,6 +825,6 @@
           (,classvar (,instance ,class) (,slotvar (eql ',slot)))
         ,@docs ,@decls
         (declare (ignore ,classvar))
-        (setf (slot-value ,instance ',slot) (progn ,@body))))))
+        (setf (slot-value ,instance ',slot) (block ,slot ,@body))))))
 
 ;;;----- That's all, folks --------------------------------------------------