RosettaCodeData/Task/Null-object/TXR/null-object-2.txr

6 lines
169 B
Plaintext

;; Find widget in one of three places in order
(defun find-widget (name)
(or [%widget-hash% name]
(lookup-local-widget name)
(lookup-global-widget name)))