错误: 参数类型错误: stringp STRING(怎么解决)

 错误: 参数类型错误: stringp STRING

这串代码存在一处类型错误，我该怎么办

```lisp
(defun replace-string-in-dxf (folder-path old-str)
  (setq file-list (directory (strcat 'string folder-path "/*.dxf")))
  (repeat (length file-list)
    (setq dxf-file (nth it file-list))
    (setq file-name (file-namestring dxf-file))
    (setq new-str (strcat 'string file-name ".dxf"))
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    (vla-open doc dxf-file)
    (vlax-for entity (vla-get-entities doc)
      (if (vl-position old-str (vla-get-textstring entity))
          (vla-put-textstring entity (vl-string-replace old-str new-str (vla-get-textstring entity)))))
    (vla-saveas doc dxf-file)
    (vla-close doc)
    (setq it (1+ it)))
  (princ "All DXF files have been processed.")
)

(defun c:qqw ()
  (setq folder-path (strcat (vl-string-right-trim "\\" (strcase (acet-ui-pickdir "Select" (vl-string-right-trim "\\" (getvar "dwgprefix")) "Change")))  "\\" ))
  (setq old-str (getstring "\nEnter the string to replace: "))
  (replace-string-in-dxf folder-path old-str)
)

```