Next Prev Up Top Contents Index

19.5.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)

LispWorks User Guide - 18 Feb 2003

Next Prev Up Top Contents Index