From ab99a530445d5e66d77f1676b9d73eba026d336e Mon Sep 17 00:00:00 2001 From: Andrew Berkley Date: Sun, 4 Jul 2021 14:52:48 -0700 Subject: [PATCH] Fix copy-widget-tree? (fix quicklisp build failure at least) --- src/widgets/widget/widget.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/widgets/widget/widget.lisp b/src/widgets/widget/widget.lisp index abbe59dd3..ec9213cc7 100644 --- a/src/widgets/widget/widget.lisp +++ b/src/widgets/widget/widget.lisp @@ -571,9 +571,10 @@ Slots will be copied shallowly except for CHILDREN." (copy (make-instance (type-of root)))) (dolist (slotname slotnames) (if (slot-boundp root slotname) - (case slotname - (children (mapc #'copy-widget-tree slotname)) - (t (setf (slot-value copy slotname) (slot-value root slotname)))) + (setf (slot-value copy slotname) + (if (eql slotname 'children) + (mapcar #'copy-widget-tree (slot-value root slotname)) + (slot-value root slotname))) (slot-makunbound root slotname))) copy))))