stray paren in last patch

darcs-hash:20060116095051-5417e-d7d01d043e28f5e49a77809b4b95bd8890099afe.gz

diff --git a/src/relational-attributes.lisp b/src/relational-attributes.lisp
index d9ba761..89a22c0 100644 (file)
--- a/src/relational-attributes.lisp
+++ b/src/relational-attributes.lisp
@@ -57,5 +57,5 @@
        (<ucw:a :action (delete-relationship slot (second i) instance)
                (<:as-html "(remove) "))
        (display component object)))))
-  (display component (mapcar #'car (slot-value object (getp :slot-name)))))
+  ;(display component (mapcar #'car (slot-value object (getp :slot-name))))
                      
\ No newline at end of file