22.7.3 Example using user preferences

Define a registry path:

(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)