Cleaned common lisp code in index and fixed email address
authorqorg11 <qorg@vxempire.xyz>
Fri, 29 May 2020 06:59:45 +0000 (08:59 +0200)
committerqorg11 <qorg@vxempire.xyz>
Fri, 29 May 2020 06:59:45 +0000 (08:59 +0200)
index.md

index 5f39825..018ff6c 100644 (file)
--- a/index.md
+++ b/index.md
@@ -15,35 +15,27 @@ Any article in this website is WIP. And they will always be WIP.
 Go to the [GitLab repository](https://gitlab.com/qorg11/kill9), fork
 it, change whatever, make a pull request, ill merge, and your change
 will appear here. If you don't want to use Git,
-[email](mailto:qorg[@)vxempire.xyz) me a diff and I'll patch the
+[email](mailto:qorg\[@\)vxempire.xyz) me a diff and I'll patch the
 file. Atribution will be given if wanted.
 
 <a href="http://killnod2s77o3axkktdu52aqmmy4acisz2gicbhjm4xbvxa2zfftteyd.onion/">Onion</a>
 
 <img src="/satania.jpg" width=500>
 
-<pre style='color:#000020;'><span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defconstant</span> NUMBER_OF_PEOPLE <span style='color:#008c00; '>10</span><span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defvar</span> *key*<span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defvar</span> *i* <span style='color:#008c00; '>0</span><span style='color:#308080; '>)</span>
+<pre style="color:#000000; font-size:10pt; font-family:'Courier New',monospace;"><span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defconstant</span> NUMBER_OF_PEOPLE <span style="color:#b07e00">10</span><span style="color:#000000">)</span>
+<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defvar</span> <span style="color:#000000">*</span>i<span style="color:#000000">*</span> <span style="color:#b07e00">0</span><span style="color:#000000">)</span>
 
+<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defun</span> <span style="color:#0057ae">rewrite</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">n</span><span style="color:#000000">)</span> n<span style="color:#000000">)</span>
+<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defun</span> <span style="color:#0057ae">memory</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">n</span><span style="color:#000000">)</span> n<span style="color:#000000">)</span>
 
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defun</span> rewrite <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>n</span><span style='color:#308080; '>)</span> n<span style='color:#308080; '>)</span> <span style='color:#595979; '>;; idk what's this</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defun</span> memory <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>n</span><span style='color:#308080; '>)</span> n<span style='color:#308080; '>)</span>  <span style='color:#595979; '>;; so it don't do anything</span>
-
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>princ</span> <span style='color:#1060b6; '>"Beginning System Reset....."</span><span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>terpri</span><span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>princ</span> <span style='color:#1060b6; '>"ALL RESET? y/n"</span><span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>terpri</span><span style='color:#308080; '>)</span>
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>setq</span> *key* <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>read</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span>
-
-<span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>if</span> <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>string-equal</span> *key* <span style='color:#1060b6; '>"y"</span><span style='color:#308080; '>)</span>
-
-    <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>loop</span> while <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>&lt;=</span> *i* NUMBER_OF_PEOPLE<span style='color:#308080; '>)</span>
+<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">format</span> t <span style="color:#bf0303">&quot;Beginning system reset.....&quot;</span><span style="color:#000000">)</span>
+<span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">if</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">y-or-n-p</span> <span style="color:#bf0303">&quot;ALL RESET?&quot;</span><span style="color:#000000">)</span>
+    <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">loop</span> while <span style="color:#000000">(&lt;= *</span>i<span style="color:#000000">*</span> NUMBER_OF_PEOPLE<span style="color:#000000">)</span>
        do
-         <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>rewrite</span> <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>memory</span> *i*<span style='color:#308080; '>)</span><span style='color:#308080; '>)</span>
-         <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>defparameter</span> *i* <span style='color:#308080; '>(</span><span style='color:#200080; font-weight:bold; '>+</span> *i* <span style='color:#008c00; '>1</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span><span style='color:#308080; '>)</span>
+        <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">rewrite</span> <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">memory</span> <span style="color:#000000">*</span>i<span style="color:#000000">*))</span>
+        <span style="color:#000000">(</span><span style="color:#000000; font-weight:bold">defparameter</span> <span style="color:#000000">*</span>i<span style="color:#000000">* (</span><span style="color:#000000; font-weight:bold">1</span><span style="color:#000000">+ *</span>i<span style="color:#000000">*))))</span>
 
 </pre>
-<!--Created using ToHtml.com on 2020-05-06 13:14:17 UTC -->
+
 
 car car car car cdr cdr cdr cdr car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply car cdr eval apply