commit 0fca39ff59ab40b71219168da182be4ea9aca12f Spenser Truex <truex@equwal.com> 2025-09-01 16:19:15 -0400 Use uiop (a part of asdf) for quit
generator-aux.lisp | 16 ---------------- generator.lisp | 2 +- 2 files changed, 1 insertion(+), 17 deletions(-)
diff --git a/generator-aux.lisp b/generator-aux.lisp index 977f0cc..6f4fb7a 100644 --- a/generator-aux.lisp +++ b/generator-aux.lisp @@ -3,22 +3,6 @@ (setf *articles* (reverse *articles*) *generators* (reverse *generators*)) -(defun quit () - "quit portably (ripped from Sharp-CLOCC)" - #+abcl (ext:quit) - #+allegro (excl:exit) - #+clisp (ext:quit) - #+cmu (ext:quit) - #+cormanlisp (win32:exitprocess) - #+ecl (ext:quit) - #+gcl (lisp:bye) - #+lispworks (lw:quit) - #+lucid (lcl:quit) - #+sbcl (sb-ext:quit) - #-(or allegro clisp cmu cormanlisp gcl lispworks lucid sbcl) - (error 'not-implemented :proc (list 'quit)) - ) - (defun replace-all (string part replacement &key (test #'char=)) "Replace all occurrences of PART with REPLACEMENT in STRING." (with-output-to-string (out) diff --git a/generator.lisp b/generator.lisp index e6b303c..caa344a 100644 --- a/generator.lisp +++ b/generator.lisp @@ -1,3 +1,3 @@ (asdf:load-system :cl-yag) (cl-yag:generate-site) -(cl-yag::quit) +(uiop:quit)