X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e8c5a09e2a9f3bd85701a15f25ce4b14cb4ad86a..c43f7bbf89a0653ed3665146f6f9586efbc07c5c:/src/utilities.lisp

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 023fc60..17260f4 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -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 --------------------------------------------------