PAIProlog に atom-characters/2, string-atom/2, string-list/2 を実装

atom-characters/2, string-atom/2, string-list/2 を実装した。

https://github.com/quek/paiprolog

PAIPROLOG> (prolog-first (?x)
             (atom-characters ?x (#\H #\E #\L #\L #\O)))
HELLO
PAIPROLOG> (prolog-first (?x)
             (atom-characters ?x (#\H #\E #\L #\l #\O)))
|HELlO|
PAIPROLOG> (prolog-first (?x)
             (atom-characters hello ?x))
(#\H #\E #\L #\L #\O)
PAIPROLOG> (prolog-first (?x)
             (string-atom "hello" ?x))
|hello|
PAIPROLOG> (prolog-first (?x)
             (string-atom ?x hello))
"HELLO"
PAIPROLOG> (prolog-first (?x)
             (string-atom ?x |hello|))
"hello"
PAIPROLOG> (prolog-first (?x)
             (string-list "hello" ?x))
(#\h #\e #\l #\l #\o)
PAIPROLOG> (prolog-first (?x)
             (string-list ?x (#\h #\e #\L #\l #\o)))
"heLlo"