REPLIES: Fixing AVAILABLE-REPLIES's behavior

zkat · Jan 6, 2010 · 60c10e4 · 60c10e4
1 parent 4c8a057
commit 60c10e4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/reply-definition.lisp b/src/reply-definition.lisp
@@ -136,10 +136,9 @@
 
 (defun available-replies (object)
   (delete-duplicates
-   (append (%object-roles object)
-           (mapcan 'available-replies
-                   (object-parents object)))
-   :test 'equal))
+   (nconc (mapcar 'car (%object-roles object))
+          (mapcan 'available-replies
+                  (object-parents object)))))
 
 (defun add-reader-to-object (reader prop-name object)
   (ensure-message reader :lambda-list '(object))