RosettaCodeData/Task/Create-a-file/Common-Lisp/create-a-file-3.lisp

(let ((paths (list (make-pathname :directory '(:relative "docs"))
                     (make-pathname :directory '(:absolute "docs")))))
  (mapcar #'ensure-directories-exist paths))