Raymond Toy pushed to branch issue-157-directory-returns-all-files at cmucl / cmucl
Commits:
-
5969e65a
by Raymond Toy at 2023-03-04T11:54:32-08:00
1 changed file:
Changes:
| ... | ... | @@ -1234,10 +1234,10 @@ a host-structure or string." |
| 1234 | 1234 | (eq wild :wild)
|
| 1235 | 1235 | ;; A version component of :newest or :unspecific
|
| 1236 | 1236 | ;; is equivalent to nil.
|
| 1237 | - (and (null this) (or (eq that :newest)
|
|
| 1238 | - (eq that :unspecific)))
|
|
| 1239 | - (and (null that) (or (eq this :newest)
|
|
| 1240 | - (eq this :unspecific))))))
|
|
| 1237 | + (and (null thing) (or (eq wild :newest)
|
|
| 1238 | + (eq wild :unspecific)))
|
|
| 1239 | + (and (null wild) (or (eq thing :newest)
|
|
| 1240 | + (eq thing :unspecific))))))
|
|
| 1241 | 1241 | (and (or (null (%pathname-host wildname))
|
| 1242 | 1242 | (eq (%pathname-host wildname) (%pathname-host pathname)))
|
| 1243 | 1243 | (frob %pathname-device device-components-match)
|