)))     `(let ((orig-lucid-closure        (or (getf (symbol-plist ',name) :original-lucid-closure)    (setf (getf (symbol-plist ',name) :original-lucid-closure)          (symbol-function ',name)))))     