Skip to content

Commit 5ff40da

Browse files
committed
Substitute LET* with LET
- Independent LET binding clauses improve human readability - Use LET unless you can't
1 parent ed52905 commit 5ff40da

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

quicklisp/local-projects.lisp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -49,10 +49,10 @@
4949

5050
(defun local-project-system-files (pathname)
5151
"Return a list of system files under PATHNAME."
52-
(let* ((files (matching-directory-files pathname
53-
(lambda (file)
54-
(equalp (pathname-type file)
55-
"asd")))))
52+
(let ((files (matching-directory-files pathname
53+
(lambda (file)
54+
(equalp (pathname-type file)
55+
"asd")))))
5656
(setf files (sort files
5757
#'string<
5858
:key #'namestring))

0 commit comments

Comments
 (0)