Задача на списки - Lisp

Формулировка задачи:

Добрый день Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя, отчество студента, оценки по каждому экзамену. Описать его в виде массива записей и составить программу определения количества отличников в группе. Для реализации записей использовать списки свойств атомов. Массив записей нужно считывать из файла Помогите пожалуйста

Решение задачи: «Задача на списки»

textual
                            Листинг программы 
                        

                            (defun get-best-students (data-of-students)
  (remove-if-not #'best? data-of-students))
 
(defun count-best-students (data-of-students)
  (count-if #'best? data-of-students))
                        