marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #73 from lukasepple/master

Browse source 
using char instead of aref for getting a char by index
This commit is contained in:
Javier Olaechea 2014-12-07 13:53:21 -05:00
commit 515f93cbd3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/content.lisp
View file

@ -26,7 +26,7 @@
"Determine if CHAR is a valid slug (i.e. URL) character."
; use the first char of the general unicode category as kind of
; hyper general category
(let ((cat (aref (cl-unicode:general-category char) 0))
(let ((cat (char (cl-unicode:general-category char) 0))
(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
(cond
((member cat allowed-cats) t)
@ -35,7 +35,7 @@
(defun unicode-space-p (char)
"Determine if CHAR is a kind of whitespace by unicode category means."
(char= (aref (cl-unicode:general-category char) 0) #\Z))
(char= (char (cl-unicode:general-category char) 0) #\Z))
(defun slugify (string)
"Return a version of STRING suitable for use as a URL."