Browse code

Removed unused function.

Jaidyn Lev authored on 2018-06-14 18:54:26
Showing 1 changed files
... ...
@@ -67,14 +67,3 @@
67 67
    *  %3F → ?
68 68
    *  %26%239773%3B → ☭"
69 69
 	(quri:url-decode str))
70
-
71
-
72
-(defun char-code (str)
73
-  "Returns a character from its code."
74
-        (let ((chars (string-to-list str)))
75
-        (character
76
-                (parse-integer
77
-                        (list-to-string
78
-                                (list (nth 1 chars) (nth 2 chars)))
79
-                                :radix 16))))
80
-