(setf (sys:product-registry-path :deep-thought)
'("Software" "My Company" "Deep Thought"))
Store a preference for the current user:
(setf (user-preference "Answers"
"Ultimate Question"
:product :deep-thought)
42)
Retrieve a preference for the current user, potentially in a subsequent session:
(user-preference "Answers" "Ultimate Question"
:product :deep-thought)