База данных

(defun С:SINTEZ ()
   (setq SHEMA '("Фамилия" "Дата рождения"))
   (setq OBJ ( ))
   (foreach KEY SHEMA OBJ)
     (princ (strcat "\n Введите значение" KEY "="))
     (setq ZNACH (getstring))
     (setq ELEM (list  KEY ZNACH))
     (setq OBJ (cons ELEM OBJ))
   );
   (setq OBJ (reverse OBJ)) 
)
 
(defun ANALIZE (OBJECT)
    (setq KEY (getstring "\n Введите ключевое слово (или Enter)")) 
    (if (/ = (ASCII KEY) 13) 
        (PROGN
           (setq ELEMENT (assoc KEY ОBJECT)) 
           (setq ZNACH (cadr ELEMENT))
           (princ (strcat KEY "=" ZNACH))
           (setq NZN (GETSTRING "\n Введите новое значение (или Enter)")) 
       (if (/ = (ASCII NZN) 13)
           (setq NIL (LIST KEY NZN))
           (setq OBJECT (subst NIL ELEM OBJECT));if 
       );progn
   );if
)
 
(defun BD ()
   defun ANALIZE ()
   defun C:SINTEZ()
)

(defun C:SINTEZ ()
  (setq SHEMA '("Фамилия" "Дата рождения"))
  (setq OBJ '())
  (foreach KEY SHEMA
    (princ (strcat "\n Введите значение" KEY "="))
    (setq ZNACH (getstring))
    (setq ELEM (list KEY ZNACH))
    (setq OBJ (cons ELEM OBJ))
  ) ;_foreach
  ;;(setq OBJ (reverse OBJ)) 
)
 
(defun ANALYZE (OBJECT)
  
  (setq KEY (getstring "\n Введите ключевое слово (или Enter)"))
  
  (if (/= 13 (ASCII KEY))
    (PROGN
      (setq ELEMENT (assoc KEY ОBJECT))
      (setq ZNACH (cadr ELEMENT))
      (princ (strcat KEY "=" ZNACH))
 
      (setq NZN (getstring "\n Введите новое значение (или Enter)"))
      
      (if (/= 13 (ASCII NZN))
    (setq NEW_ELREM (LIST KEY NZN))
    (setq OBJECT (subst NEW_ELREM ELEM OBJECT))
      ) ;_if
 
    ) ;_progn
  ) ;_if
)
 
(defun BD ()
  defun
  (ANALYZE)
  defun
  (C:SINTEZ)
)