1 ;; CL-WHO demo, a prelude
 2 (require 'asdf)
 3 
 4 ;; Change this to whatever helps you import CL-WHO.
 5 (defvar *stolen* "/home/stolen/")
 6 (pushnew (concatenate 'string
 7 		      *stolen* "cl-who/")
 8 	 asdf:*central-registry*
 9 	 :test #'string=)
10 (asdf:load-system :cl-who)
11 
12 ;; Below goes whatever example code you may wish to test: