以下是一个使用Lisp编写的函数triangle，用于打印出由奇数构成的三角形：

(defun triangle (n)
  (if (evenp n)
      (error "输入必须为奇数")
      (let ((current-row 1))
        (loop until (> current-row n)
              do (progn
                   (let ((current-col 1))
                     (loop until (> current-col current-row)
                           do (progn
                                (format t "~d " (* 2 current-col))
                                (setq current-col (+ current-col 1)))))
                   (format t "~d~%" (* 2 current-row))
                   (setq current-row (+ current-row 1))))))

(triangle 5)

此函数接受一个奇数作为参数n，并使用嵌套的循环打印出由奇数构成的三角形。该函数首先检查输入是否为偶数，如果是，则抛出一个错误。接下来，使用变量current-row迭代每一行，并使用内部循环迭代每一列。在每一列中，我们使用(format t "~d " (* 2 current-col)) 打印当前奇数的两倍值，然后递增current-col。在每行的结束处，我们使用(format t "~d~%" (* 2 current-row)) 打印当前行的奇数，并递增current-row。最后，我们使用(triangle 5)调用函数，并打印出一个由奇数构成的三角形：

1 
2 2 
4 4 4 
6 6 6 6 
8 8 8 8 8 

请注意，此函数仅接受奇数作为参数。如果传递一个偶数，将会抛出一个错误。你可以根据需要修改该函数，以适应其他情况。