RosettaCodeData/Task/Make-directory-path/Common-Lisp/make-directory-path.lisp

(ensure-directories-exist "your/path/name")