commit 444239c52c9c5bd5fe200865798310b44811eb16 Spenser Truex <spensertruexonline@gmail.com> 2016-07-16 22:29:52 +0000 Remove an emacs backup file.
code/utils.lisp~ | 28 ---------------------------- 1 file changed, 28 deletions(-)
diff --git a/code/utils.lisp~ b/code/utils.lisp~ deleted file mode 100644 index 9d334ee..0000000 --- a/code/utils.lisp~ +++ /dev/null @@ -1,28 +0,0 @@ -(in-package :brain) - -(defun any-char (char sequence) - "Compare the 'char' to each element of 'sequence' using the 'some' -command" - (some #'(lambda (x) (char-equal x char)) - sequence)) - -(defun char-list->string-aux (char-list string position) - (if (null (first char-list)) - string - (char-list->string-aux (rest char-list) - (progn (setf (char string position) - (first char-list)) - string) - (1+ position)))) - -(defun char-list->string (char-list) - (char-list->string-aux char-list (make-string (length char-list)) 0)) - -(defun first-elt (string) - (elt string 0)) - -(defun ascii->integer (char) - (char-code char)) - -(defun integer->ascii (num) - (code-char num))