(dbstore smith ( (weight . 120) (height . 160) (sex . F) (univ . umd) (year . 1995) (age . 23) (salary . 20000) (homestate . iowa) (married . n) (kidnames . nil) ))



(dbstore george ( (weight . 170) (height . 190) (sex . M) (univ . asu) (year . 1984) (age . 22) (salary . 30000) (homestate . arizona) (married . y) (kidnames . nil) ))



(dbstore perkins ( (weight . 160) (height . 176) (sex . M) (univ . upenn) (year . 1990) (age . 22) (salary . 20000) (homestate . pennsylvania) (married . n) (kidnames . nil) ))



(dbstore gold ( (weight . 158) (height . 170) (sex . M) (univ . floridastate) (year . 1994) (age . 24) (salary . 20000) (homestate . florida) (married . y) (kidnames . (john linda)) ))



(dbstore brent ( (weight . 130) (height . 160) (sex . F) (univ . umbc) (year . 1999) (age . 23) (salary . 40000) (homestate . md) (married . n) (kidnames . nil) ))



(dbstore samuels ( (weight . 120) (height . 150) (sex . F) (univ . vtech) (year . 1989) (age . 22) (salary . 30000) (homestate . virginia) (married . y) (kidnames . (gary roger) ) ))



(dbstore perez ( (weight . 165) (height . 170) (sex . M) (univ . texasamu) (year . 1980) (age . 26) (salary . 50000) (homestate . texas) (married . n) (kidnames . nil) ))


(dbstore plummer ( (weight . 150) (height . 176) (sex . M) (univ . ucsd) (year . 1975) (age . 23) (salary . 60000) (homestate . california) (married . y) (kidnames . (robert)) ))



(dbinsert plummer general)
(dbinsert perez colonel)
(dbinsert brent major)
(dbinsert samuels lieutenant)
(dbinsert george lieutenant)
(dbinsert smith private)
(dbinsert perkins private)
(dbinsert gold private)
(dbinsert anderson general)
; -> nil

(findall (gep salary 30000))
; -> (george brent samuels perez plummer)

(findall (and (gep salary 30000) (eqp sex m)))
; -> (george perez plummer)

(findallinset major t)
; -> (brent)


(findnext (lep height 150))
; -> samuels

(findnext (eqp sex f))
; -> brent

(findnextinset private t)
; -> gold
; it depends how you implemented the addition to a set.
; if your private looks like (gold perkins smith) the answer is as above.
;
; similarly, the results for findnext assume that you made new additions to
; officers at the front of the list

(findnextinset private (gtp age 23))
; -> gold

(findnextinset lieutenant (lep year 1980))
; -> nil


(dbmodify perez weight 160)

(dbremove fields general)
; -> nil

(dbremove plummer general)

(dbremove samuels lieutenant)
(dbinsert samuels general)

(findallinset general t)
; -> (samuels)