X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/8a7afc76fd5f929de335cf318741e3489d6c6107..5568c760e5a2062815fc4b71735bc33383db88da:/src/builtin.lisp

diff --git a/src/builtin.lisp b/src/builtin.lisp
index 776d3a1..08ad5f0 100644
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -422,12 +422,12 @@ static const SodClass *const ~A__cpl[] = {
 		(when (or init initargs)
 		  (focus-this-class)
 		  (let* ((slot-type (sod-slot-type dslot))
-			 (slot-default (sod-initializer-value init))
 			 (target (format nil "~A.~A"
 					 isl (sod-slot-name dslot)))
-			 (initinst (set-from-initializer target
-							 slot-type
-							 slot-default)))
+			 (initinst (and init
+					(set-from-initializer
+					 target slot-type
+					 (sod-initializer-value init)))))
 
 		    ;; If there are applicable initialization arguments,
 		    ;; check to see whether they were supplied.