From: Drew Crampsie <drewc@tech.coop>
Date: Mon, 19 Dec 2005 16:51:54 +0000 (-0800)
Subject: fixed ordering in get-foreign-instances
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/8c6914bd27843fc74d07da3965fafaac09c85c4e?ds=sidebyside

fixed ordering in get-foreign-instances

darcs-hash:20051219165154-5417e-11183a98de30f565f87cd1ddbcc4e64ef13dc034.gz
---

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index 89492aa..188db91 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -301,7 +301,7 @@ Calendar.setup({
 
 (defmethod get-foreign-instances ((slot has-many-slot-presentation) instance)
   (sort (slot-value instance (slot-name slot)) #'<  
-	:key #'(lambda (x) (funcall (car (list-keys instance)) x))))
+	: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))