Вставка архивной кальки

(defun ru-block-insert-xref-from-archive (full_name
                                          /
                                          xref_name
                                          comment
                                         )
  (if (findfile full_name)
    (progn
      (setq comment
             (ru-file-read-dirinfo-file-comment full_name)
      ) ;_ end of setq
      (princ (strcat "
Подождите, вставляю 
 "
                     full_name
                     (if (/= comment "")
                       (strcat "
 ["
                               comment
                               "]"
                       ) ;_ end of strcat
                       ""
                     ) ;_ end of if
                     "
"
             ) ;_ end of strcat
      ) ;_ end of princ
      (setq xref_name (ru-file-unique-name full_name))
      (ru-xref-detach xref_name)
      (ru-xref-attach full_name xref_name)
    ) ;_ end of progn
    (princ (strcat "
Не найдена калька " full_name "
"))
  ) ;_ end of if
  xref_name
) ;_ end of defun