Skip to content

Commit d2717a4

Browse files
committed
Fix #179 to check if *ca-bundle* is nil.
1 parent 012dd43 commit d2717a4

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/backend/usocket.lisp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -370,7 +370,7 @@
370370
:verify-location
371371
(cond
372372
(ca-path (uiop:native-namestring ca-path))
373-
((probe-file *ca-bundle*) *ca-bundle*)
373+
((and *ca-bundle* (probe-file *ca-bundle*)) *ca-bundle*)
374374
;; In executable environment, perhaps *ca-bundle* doesn't exist.
375375
(t :default))))
376376
(ssl-cert-pem-p (and ssl-cert-file

0 commit comments

Comments
 (0)