1. Stephen Compall
  2. weblocks-dev


Stephen Compall  committed e4e5fac

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

  • Participants
  • Parent commits 9bb1efd
  • Branches default

Comments (0)

Files changed (1)

File src/widgets/widget/widget.lisp

View file
       (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.")