mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-03 16:01:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo.

Browse source
This commit is contained in:
jjgarcia 2003-07-15 14:09:36 +00:00
parent 264836b63f
commit 7470949f30
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/mislib.lsp
View file

@ -138,7 +138,7 @@ Sunday is the *last* day of the week!!"
(let* (d)
(dolist (item (pathname-directory a-pathname))
(setf d (nconc d (list item)))
(let ((p (make-pathname :directory d :default a-pathname)))
(let ((p (make-pathname :directory d :defaults a-pathname)))
(unless (or (symbolp item) (si::file-kind p nil))
(si::mkdir p #o777))))))