История изменений

Исправление den73, 20.09.17 17:59 (текущая версия) :

Как-то так (не тестировал и скобки мог неверно посчитать, что в мире лиспа является нормой :) )


(defstruct struct
 (name "" :type string)
 (department_id 0 :type integer))

(declaim (ftype (function (struct struct) t)) struct<)

(defun struct< (a b) "Сортировка по dept_id, потом по name"
 (or 
   (< (struct-department_id a) (struct-department_id b))
   (and (= (struct-department_id a) (struct-department_id b))
        (string< (struct-name a) (struct-name b)))))

;; это не массив структур, а массив 
(let ((my-array (make-array '(2) :element-type struct 
                 :initial-contents
                 (list ; да, это коряво, а иначе руками заполняй
                  (make-struct :department_id 1 ...)
                  (make-struct ...)))))
  (sort my-array #'struct<))

; 3.2. предоставляется читателю (нужно написать другую ф-ю)

Исходная версия den73, 20.09.17 17:58:

Как-то так:


(defstruct struct
 (name "" :type string)
 (department_id 0 :type integer))

(declaim (ftype (function (struct struct) t)) struct<)

(defun struct< (a b) "Сортировка по dept_id, потом по name"
 (or 
   (< (struct-department_id a) (struct-department_id b))
   (and (= (struct-department_id a) (struct-department_id b))
        (string< (struct-name a) (struct-name b)))))

;; это не массив структур, а массив 
(let ((my-array (make-array '(2) :element-type struct 
                 :initial-contents
                 (list ; да, это коряво, а иначе руками заполняй
                  (make-struct :department_id 1 ...)
                  (make-struct ...)))))
  (sort my-array #'struct<))

; 3.2. предоставляется читателю (нужно написать другую ф-ю)