Loading uiop/configuration.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -148,7 +148,7 @@ this function tries to locate the Windows FOLDER for one of "Map the VALIDATOR across the .conf files in DIRECTORY, the TAG will be applied to the results to yield a configuration form. Current values of TAG include :source-registry and :output-translations." (let ((files (sort (ignore-errors (let ((files (sort (ignore-errors ;; SORT w/o COPY-LIST is OK: DIRECTORY returns a fresh list (remove-if 'hidden-pathname-p (directory* (make-pathname :name *wild* :type "conf" :defaults directory)))) Loading uiop/package.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -317,7 +317,7 @@ or when loading the package is optional." (imported) (t (push name intern))))))) (labels ((sort-names (names) (sort names #'string<)) (sort (copy-list names) #'string<)) (table-keys (table) (loop :for k :being :the :hash-keys :of table :collect k)) (when-relevant (key value) Loading Loading
uiop/configuration.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -148,7 +148,7 @@ this function tries to locate the Windows FOLDER for one of "Map the VALIDATOR across the .conf files in DIRECTORY, the TAG will be applied to the results to yield a configuration form. Current values of TAG include :source-registry and :output-translations." (let ((files (sort (ignore-errors (let ((files (sort (ignore-errors ;; SORT w/o COPY-LIST is OK: DIRECTORY returns a fresh list (remove-if 'hidden-pathname-p (directory* (make-pathname :name *wild* :type "conf" :defaults directory)))) Loading
uiop/package.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -317,7 +317,7 @@ or when loading the package is optional." (imported) (t (push name intern))))))) (labels ((sort-names (names) (sort names #'string<)) (sort (copy-list names) #'string<)) (table-keys (table) (loop :for k :being :the :hash-keys :of table :collect k)) (when-relevant (key value) Loading