+(defun concord-turtle-insert-object (cell &optional readable)
+ (if (integerp cell)
+ (setq cell (decode-char '=ucs cell)))
+ (cond
+ ((characterp cell)
+ (insert (format "%-20s" (chise-turtle-encode-char cell)))
+ nil)
+ ((concord-object-p cell)
+ (insert (format "%-20s" (concord-turtle-encode-object cell)))
+ nil)
+ (t
+ (concord-turtle-insert-char-ref cell '<-formed)
+ )))
+
+(defun concord-turtle-insert-decomposition (value &optional readable)
+ (let ((lbs (concat "\n" (make-string (current-column) ?\ )))
+ base vs lb)
+ (if (characterp value)
+ (setq value (list value)))
+ (if (setq base (pop value))
+ (cond ((setq vs (pop value))
+ (insert "[ :base ")
+ (setq lb (concord-turtle-insert-object base readable))
+ (insert " ;")
+ (insert lbs)
+ (insert " :vs ")
+ (setq lb (concord-turtle-insert-object vs readable))
+ (insert lbs)
+ (insert "]")
+ nil)
+ (t
+ (setq lb (concord-turtle-insert-object base readable))
+ ))
+ )))
+