3

(setf *database* ())

(defun add-record (&key d n pt)
(setf *database* (cons (list :destination d :id n :plan-type pt) *database*)))

(defun printAll (&optional (outstr NIL))
setf *database* ())

(defun printAll (&optional (outstr NIL))
(dolist (item *database*)
(print item outstr)))

(defun dest-selector (dest-value) #’(lambda (x) (equal (getf x :destination) dest-value)))
(defun id-selector (id-value) #’(lambda (x) (equal (getf x :id) id-value)))
(defun ptype-selector (ptype-value) #’(lambda (x) (equal (getf x :plan-type) ptype-value)))


(defun select-by-plan-type ()
(setq res (remove-if-not (ptype-selector (read)) *database*))
(if (equal res nil) "no matches" res))

(defun update (selector-func &key d n pt)
(setf *database*
(mapcar #'(lambda (record)
(when (funcall selector-func record)
(if d (setf (getf record :desination) d))
(if n (setf (getf record :id) n))
(if pt (setf (getf record :plan-type) pt)))
record)
*database*)))

(defun save-to-file ()
(setf out (open "E:\\extern.txt" :direction :output))
(printAll out)
(close out))

(defun load-from-file ()
(setf in (open "E:\\extern.txt" :direction :input))
(loop
(setf item (read in nil 'eof))
(if (equal item 'eof) (return *database*))
(setf *database* (cons item *database*)))
(close in) *database*)

(add-record :d "five" :n 5 :pt "fivetype")
(add-record :d "seven" :n 7 :pt "seventype")
(add-record :d "six" :n 6 :pt "sixtype")
(add-record :d "nine" :n 9 :pt "ninetype")
(select-by-plan-type) "sixtype"
(select-by-plan-type) "new"
(update (ptype-selector "fivetype") :d "New Dest" :n 55)
(printAll)