Commit 917a0700 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files
parents f9b1a8d1 3af25fe2
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -36,7 +36,7 @@ Configurations specify paths where to find system files.
     if it exists.

  6- The source registry will be configured from
     system configuration file
     system configuration directory
	``/etc/common-lisp/source-registry.conf.d/``
     if it exists.

+1 −1
Original line number Diff line number Diff line
@@ -2133,7 +2133,7 @@ with a different configuration, so the configuration would be re-read then."
(defun validate-source-registry-file (file)
  (let ((forms (read-file-forms file)))
    (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))))

(defun validate-source-registry-directory (directory)