Stephen Compall  committed e4e5fac

Add type `valid-widget' to completement predicate `valid-widget-p'

  • Participants
  • Parent commits 9bb1efd

Comments (0)

Files changed (1)

File src/widgets/widget/widget.lisp

       (error "Widget ~a already has a parent." obj)
       (setf (slot-value obj 'parent) val)))
+(deftype valid-widget ()
+  "The supertype of all widgets.  Check against this type instead of
+`widget' unless you know what you're doing."
+  '(satisfies valid-widget-p))
 (defgeneric valid-widget-p (widget)
   (:documentation "Returns t when widget is a valid, renderable widget;
    this includes strings, function, etc.")