X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/91f2ab7b92b3a1c3c7e419ce15843e1126755e99..6ac956e82549cf957dba5079060b1252884ff219:/src/relational-attributes.lisp

diff --git a/src/relational-attributes.lisp b/src/relational-attributes.lisp
index d9ba761..89a22c0 100644
--- 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