git/cl-yag/commit/0fca39ff59ab40b71219168da182be4ea9aca12f.html (2541 bytes)
1 <!DOCTYPE html> 2 <html lang="en"><head><meta charset="UTF-8" /> 3 <meta name="viewport" content="width=device-width, initial-scale=1" /> 4 <title>cl-yag 0fca39ff - Recently Written</title> 5 <link rel="stylesheet" href="../../stagit.css" /> 6 </head><body> 7 <div id="top"><a href="../../../index.html">Recently Written</a> · <a href="../../index.html">git</a></div> 8 <h1>cl-yag</h1><span class="desc">Mirror and rewrite of Solène Rapenne's cl-yag SSG of renown</span><p class="url">git clone https://github.com/equwal/cl-yag</p><p><a href="../../cl-yag/index.html">Log</a> | <a href="../../cl-yag/files.html">Files</a> | <a href="../../cl-yag/refs.html">Refs</a></p><hr/> 9 <div id="content"> 10 <pre>commit 0fca39ff59ab40b71219168da182be4ea9aca12f 11 Spenser Truex <truex@equwal.com> 12 2025-09-01 16:19:15 -0400 13 14 Use uiop (a part of asdf) for quit 15 16 </pre><pre> generator-aux.lisp | 16 ---------------- 17 generator.lisp | 2 +- 18 2 files changed, 1 insertion(+), 17 deletions(-) 19 </pre><pre>diff --git a/generator-aux.lisp b/generator-aux.lisp 20 index 977f0cc..6f4fb7a 100644 21 --- a/generator-aux.lisp 22 +++ b/generator-aux.lisp 23 <span class="h">@@ -3,22 +3,6 @@</span> 24 (setf *articles* (reverse *articles*) 25 *generators* (reverse *generators*)) 26 27 <span class="d">-(defun quit ()</span> 28 <span class="d">- "quit portably (ripped from Sharp-CLOCC)"</span> 29 <span class="d">- #+abcl (ext:quit)</span> 30 <span class="d">- #+allegro (excl:exit)</span> 31 <span class="d">- #+clisp (ext:quit)</span> 32 <span class="d">- #+cmu (ext:quit)</span> 33 <span class="d">- #+cormanlisp (win32:exitprocess)</span> 34 <span class="d">- #+ecl (ext:quit)</span> 35 <span class="d">- #+gcl (lisp:bye)</span> 36 <span class="d">- #+lispworks (lw:quit)</span> 37 <span class="d">- #+lucid (lcl:quit)</span> 38 <span class="d">- #+sbcl (sb-ext:quit)</span> 39 <span class="d">- #-(or allegro clisp cmu cormanlisp gcl lispworks lucid sbcl)</span> 40 <span class="d">- (error 'not-implemented :proc (list 'quit))</span> 41 <span class="d">- )</span> 42 <span class="d">-</span> 43 (defun replace-all (string part replacement &key (test #'char=)) 44 "Replace all occurrences of PART with REPLACEMENT in STRING." 45 (with-output-to-string (out) 46 diff --git a/generator.lisp b/generator.lisp 47 index e6b303c..caa344a 100644 48 --- a/generator.lisp 49 +++ b/generator.lisp 50 <span class="h">@@ -1,3 +1,3 @@</span> 51 (asdf:load-system :cl-yag) 52 (cl-yag:generate-site) 53 <span class="d">-(cl-yag::quit)</span> 54 <span class="a">+(uiop:quit)</span></pre> 55 </div></body></html>