Skip to content
Snippets Groups Projects
Commit 917a0700 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files
parents f9b1a8d1 3af25fe2
No related branches found
No related tags found
No related merge requests found
...@@ -36,7 +36,7 @@ Configurations specify paths where to find system files. ...@@ -36,7 +36,7 @@ Configurations specify paths where to find system files.
if it exists. if it exists.
6- The source registry will be configured from 6- The source registry will be configured from
system configuration file system configuration directory
``/etc/common-lisp/source-registry.conf.d/`` ``/etc/common-lisp/source-registry.conf.d/``
if it exists. if it exists.
......
...@@ -2133,7 +2133,7 @@ with a different configuration, so the configuration would be re-read then." ...@@ -2133,7 +2133,7 @@ with a different configuration, so the configuration would be re-read then."
(defun validate-source-registry-file (file) (defun validate-source-registry-file (file)
(let ((forms (read-file-forms file))) (let ((forms (read-file-forms file)))
(unless (length=n-p forms 1) (unless (length=n-p forms 1)
(error "Only and only one form allowed for source registry. Got: ~S~%" forms)) (error "One and only one form allowed for source registry. Got: ~S~%" forms))
(validate-source-registry-form (car forms)))) (validate-source-registry-form (car forms))))
(defun validate-source-registry-directory (directory) (defun validate-source-registry-directory (directory)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment