git/LispBrain/commit/444239c52c9c5bd5fe200865798310b44811eb16.html (2739 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>LispBrain 444239c5 - 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>LispBrain</h1><span class="desc">The best Brainfuck debugger available, if you know how the Common Lisp debugger works. Uses Common Lisp's ease of debugging to make debugging Brainfuck code easy. Almost entirely useless.</span><p class="url">git clone https://github.com/equwal/LispBrain</p><p><a href="../../LispBrain/index.html">Log</a> | <a href="../../LispBrain/files.html">Files</a> | <a href="../../LispBrain/refs.html">Refs</a></p><hr/> 9 <div id="content"> 10 <pre>commit 444239c52c9c5bd5fe200865798310b44811eb16 11 Spenser Truex <spensertruexonline@gmail.com> 12 2016-07-16 22:29:52 +0000 13 14 Remove an emacs backup file. 15 </pre><pre> code/utils.lisp~ | 28 ---------------------------- 16 1 file changed, 28 deletions(-) 17 </pre><pre>diff --git a/code/utils.lisp~ b/code/utils.lisp~ 18 deleted file mode 100644 19 index 9d334ee..0000000 20 --- a/code/utils.lisp~ 21 +++ /dev/null 22 <span class="h">@@ -1,28 +0,0 @@</span> 23 <span class="d">-(in-package :brain)</span> 24 <span class="d">-</span> 25 <span class="d">-(defun any-char (char sequence)</span> 26 <span class="d">- "Compare the 'char' to each element of 'sequence' using the 'some'</span> 27 <span class="d">-command"</span> 28 <span class="d">- (some #'(lambda (x) (char-equal x char))</span> 29 <span class="d">- sequence))</span> 30 <span class="d">-</span> 31 <span class="d">-(defun char-list->string-aux (char-list string position)</span> 32 <span class="d">- (if (null (first char-list))</span> 33 <span class="d">- string</span> 34 <span class="d">- (char-list->string-aux (rest char-list)</span> 35 <span class="d">- (progn (setf (char string position)</span> 36 <span class="d">- (first char-list))</span> 37 <span class="d">- string)</span> 38 <span class="d">- (1+ position))))</span> 39 <span class="d">-</span> 40 <span class="d">-(defun char-list->string (char-list)</span> 41 <span class="d">- (char-list->string-aux char-list (make-string (length char-list)) 0))</span> 42 <span class="d">-</span> 43 <span class="d">-(defun first-elt (string)</span> 44 <span class="d">- (elt string 0))</span> 45 <span class="d">-</span> 46 <span class="d">-(defun ascii->integer (char)</span> 47 <span class="d">- (char-code char))</span> 48 <span class="d">-</span> 49 <span class="d">-(defun integer->ascii (num)</span> 50 <span class="d">- (code-char num))</span></pre> 51 </div></body></html>