Anonymous user
Simple database: Difference between revisions
Undo revision 126706 by EMBee (talk) (some) does not work here
(→{{header|Common Lisp}}: some more little improvements from #lisp) |
|||
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)
(
(defun prompt-read (prompt &optional default)
|