From f10e42578fabeb2ad84095606bbc457e86c1127c Mon Sep 17 00:00:00 2001 From: Anthony Green Date: Mon, 27 May 2024 17:03:41 -0400 Subject: [PATCH] Use the new (ocicl-runtime:system-list) function. --- contrib/micros-systems.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/contrib/micros-systems.lisp b/contrib/micros-systems.lisp index c57f6bc..15f838b 100644 --- a/contrib/micros-systems.lisp +++ b/contrib/micros-systems.lisp @@ -8,14 +8,9 @@ (uiop:symbol-call '#:quicklisp '#:system-list)))) (defun find-ocicl-systems () - "If the Ocicl runtime is available, extract all system names from the current directory's systems.csv." + "If the Ocicl runtime is available, extra all system names." (when (find-package '#:OCICL-RUNTIME) - (with-open-file (in-stream (merge-pathnames (uiop:getcwd) "systems.csv") :direction :input) - (unwind-protect - (loop :for line = (read-line in-stream nil) - :while line - :collect (subseq line 0 (position #\, line))) - (close in-stream))))) + (uiop:symbol-call '#:ocicl-runtime '#:system-list))) (defun find-asdf-systems () "If ASDF is available, extract system names by collecting all keys from the *source-registry* hash lists."