From 8c6914bd27843fc74d07da3965fafaac09c85c4e Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Mon, 19 Dec 2005 08:51:54 -0800 Subject: [PATCH] fixed ordering in get-foreign-instances darcs-hash:20051219165154-5417e-11183a98de30f565f87cd1ddbcc4e64ef13dc034.gz --- src/slot-presentations.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.20.1