;;
;; This is a list of all current professors and the criteria needed to 	
;;  distinguish them apart.
;; 
;; Each person currently has 5 criteria:
;;  - hair color
;;	light (lt), dark (dk)
;;  - hair length
;;	mini hair or bald (ih), short (sh), med (mh) long (lh)
;;  - beard status
;;	long beard (lb), beard (bb), 1/2 beard or goatee (gb), no beard (nb)
;;  - mustache status
;;	mustache (mm), no mustache (nm)
;;  - glasses status
;;	glasses (gg), no glasses (ng)
;; 
;; Additional faculty can be added, keeping the alphabetical ordering.  The 
;;  order of the parameters is name, hair color, hair length, beard, mustache,
;;  glasses.  If new items are to be added, they should start after glasses.
;;  In addition, a new subroutine will need to be added to 
;;  "faculty_find.lisp".
;; 
(setf faculty 
 '((casperson dk sh nb nm ng) (chrzanowska-jeske lt lh nb nm ng)
 (daash dk mh gb mm gg) (fraser dk ih nb nm gg)
 (greenwood dk ih nb nm ng) (hall dk ih nb mm ng)
 (jenq dk sh nb nm gg) (lendaris lt sh nb nm ng)
 (li dk sh nb nm gg) (mcnames dk sh bb mm ng)
 (perkowski dk mh lb mm ng) (schaumann dk sh lb mm gg)
 (tymerski dk mh nb nm ng) (van_halen dk mh bb mm ng))
)