Отсортировать записи в БД по одному столбцу в алфавитном порядке

(defun make-ts (production type naming)
 
(list :production production :type type :naming naming))
 
 
(defvar *db* nil)
 
;добавление
 
(defun add-record (ts) (push ts *db*))
 
;вывод
 
(defun dump-db ()
 
(dolist (ts *db*)
 
(format t "~{~a:~10t~a~%~}~%" ts)))
 
;выбирает некоторое значение с БД
 
(defun select (selector-fn)
 
(remove-if-not selector-fn *db*))
 
;выбирает тип
 
(defun type-selector (type)
 
(lambda (ts) (equal (getf ts :type) type)))
 
;генерирует выражение выбора, которое возвращает все записи про тел. систему
 
;которые совпадают со значением, заданым в в where
 
(defun where (&key production type naming)
 
(lambda (ts)
 
(and
 
(if production (equal (getf ts :production) production) t)
 
(if type (equal (getf ts :type) type) t)
 
(if naming (equal (getf ts :naming) naming) t))))
 
;обновление та использования аргументов-ключей для нового значения
 
(defun update (selector-fn &key production type naming (ripped nil ripped-p))
 
(setf *db*
 
(mapcar
 
(lambda (row)
 
(when (funcall selector-fn row)
 
(if production (setf (getf row :production) production))
 
(if type (setf (getf row :type) type))
 
(if naming (setf (getf row :naming) naming)))
 
row) *db*)))
 
;удаление
 
(defun delete-rows (selector-fn)
 
(setf *db* (remove-if selector-fn *db*)))
 
;поиск
 
(defun make-comparison-expr (field value)
 
(list 'equal (list 'getf 'ts field) value))

;Глобальная переменная
(defvar *db* nil)
 
; Добавления записи в базу данных
(defun add-record (ts)
   (push ts *db*)
       (vector-push (getByNumF ts 2) aq)
       (cons lis (getByNumF ts 2) )
)
 
; Выводит содержимое базы данных в более читабельный форме
(defun dump-db ()
(dolist (ts *db*)
(format t "~{~a:~10t~a~%~}~%" ts)))
 
; Выбирает некоторое значение из базы данных
(defun select (selector-fn)
(remove-if-not selector-fn *db*))
 
; Выбирает тип выставки
(defun type-selector (type)
(lambda (ts) (equal (getf ts :type) type)))
 
 
 
; Генерирует выражение выбора, которое возвращает все записи о выставках, которые совпадают со значениями, заданными в where
(defun where (&key title type style)
(lambda (ts)
(and
(if title (equal (getf ts :title) title) t)
(if type (equal (getf ts :type) type) t)
(if style (equal (getf ts :style) style) t))))
 
; Обновления и использования аргументов-ключей для предоставления нового значения
(defun update (selector-fn &key title type style (ripped nil ripped-p))
(setf *db*
(mapcar
(lambda (row)
(when (funcall selector-fn row)
(if title (setf (getf row :title) title))
(if type (setf (getf row :type) type))
(if style (setf (getf row :style) style)))
row) *db*)))
 
;Удаление строк из базы данных
(defun delete-rows (selector-fn)
(setf *db* (remove-if selector-fn *db*)))
 
; Поиск по заданным значениям
(defun make-comparison-expr (field value)
(list 'equal (list 'getf 'ts field) value))
 
 
                    
 
; добавление значений в базу
;  (print "Add info")
 (add-record (make-ts "Flowers" "Сreative" "Modern"))
 (add-record (make-ts "Pictures" "Сreative" "PostModern"))
  (add-record (make-ts "Pict==ures" "Сrea" "PostModern"))
 (add-record (make-ts "Electronics" "Scientific" "Nowadays"))
  (dump-db)

(setq vec (make-array 10 :fill-pointer 0))
; берем первое поле
(defun getByNumF (lst n)  
   (do ((i 1 (+ i 1)))
       ((= i n) (car lst))
       (setq lst (cdr lst))))
 
; Добавления записи в базу данных
(defun add-record (ts)
   (push ts *db*)
       (vector-push (getByNumF ts 2) vec) ; и в момент добавления в базу записи пушить поле
       (cons lis (getByNumF ts 2) )
)

(defun v-sort (v n)
   (let ((vi 0) (vj 0))  
     (dotimes (i n v)
       (dotimes (j n t) 
         (when (> j i)
           (setf vi (aref v i))
           (setf vj (aref v j))
           (when (> vi vj) (setf (aref v i) vj) (setf (aref v j) vi)))))))
V-SORT
 
CL-USER 36 > (setq *v* (vector 1 2 3 1 2 3 1))
#(1 2 3 1 2 3 1)
 
CL-USER 39 > (v-sort *v* 7)
#(1 1 1 2 2 3 3)

(defun vs-sort (v n)
   (let ((vi 0) (vj 0))  
     (dotimes (i n v)
       (dotimes (j n t) 
         (when (> j i)
           (setf vi (aref v i))
           (setf vj (aref v j))
           (when (string> vi vj) (setf (aref v i) vj) (setf (aref v j) vi)))))))
VS-SORT
 
CL-USER 41 > (setq *vs* (vector "qw" "yu" "a" "aa" "bvf" "z" "1"))
#("qw" "yu" "a" "aa" "bvf" "z" "1")
 
CL-USER 44 > (vs-sort *vs* 7)
#("1" "a" "aa" "bvf" "qw" "yu" "z")