Commit ba790f05 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

sheet/sheet-parent-mixin: Initialize the PARENT slot.

  * Oops.  This would have lead fairly quickly to a SLOT-UNBOUND
error.  Fixed, by supplying a reasonable default.
parent be4d855e
...@@ -12,7 +12,7 @@ ...@@ -12,7 +12,7 @@
(cl:in-package :nq-clim/sheet/sheet-parent-mixin) (cl:in-package :nq-clim/sheet/sheet-parent-mixin)
(defclass sheet-parent-mixin () (defclass sheet-parent-mixin ()
((parent :reader sheet-parent))) ((parent :initform nil :reader sheet-parent)))
(defmethod sheet-adopt-child :around (sheet (child sheet-parent-mixin)) (defmethod sheet-adopt-child :around (sheet (child sheet-parent-mixin))
(when (sheet-parent child) (when (sheet-parent child)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment