;;; -*- Mode:LISP; Package:USER; Base:10 -*-

(defconst p nil)

(defun pp (prop val)
  (push val (getf p prop)))

(defun test ()
  (setf p nil)
  (pp :keith 'hi)
  (pp :marianne 'bye)
  (pp :matt 'why))

(defun test2 ()
  (cdr (locf p)))