lisp-macro-5

gistfile1.lisp

(defparameter *person-db* '((:name "Anster" :age 26 :address "Seoul")))

(defun select (selector-fn)
  (remove-if-not selector-fn *person-db*))

(defun where (&key name age address)
  #'(lambda (row)
      (and
       (if name    (equal (getf row :name)  name)  t)
       (if age   (equal (getf row :age) artist) t)
       (if address   (equal (getf row :address) address) t))))