Simple database: Difference between revisions

Content added Content deleted

Inline

@@ Line 65: / Line 65: @@
   (when database
     (append (get-value 'episodes (cdar database)) (get-all (cdr database)))))
+(defun compare-date (a b)
+  (cond ((not a) t)
+        ((not b) nil)
+        ((= (first a) (first b))
+         (compare-date (rest a) (rest b)))
+        (t (< (first a) (first b)))))
 (defun compare-by-date (a b)
-  (some #'< (get-value 'date a) (get-value 'date b)))
+  (compare-date (get-value 'date a) (get-value 'date b)))
 (defun prompt-read (prompt &optional default)