X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/b8c8985156e0ce7de77973d5899221116dcc3c96..8c6914bd27843fc74d07da3965fafaac09c85c4e:/src/slot-presentations.lisp?ds=sidebyside

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index 02fb818..188db91 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -300,7 +300,8 @@ Calendar.setup({
 		       
 
 (defmethod get-foreign-instances ((slot has-many-slot-presentation) instance)
-  (slot-value instance (slot-name slot)))
+  (sort (slot-value instance (slot-name slot)) #'<  
+	:key #'(lambda (x) (funcall (car (list-keys x)) x))))
 
 (defmethod lol::presentation-slot-value ((slot has-many-slot-presentation) instance)
   (get-foreign-instances slot instance))