1
Name:
Anonymous
2013-03-23 5:19
(coerce (list #\a #\b #\a #\b) 'string) ==> "abab"
(coerce (vector #\a #\b #\a #\b) 'string) ==> "abab"
(coerce "abab" 'list) ==> (#\a #\b #\a #\b)
(coerce "abab" 'vector) ==> "abab"
(map 'string #'char-invertcase "Abab") ==> "aBAB"
(map 'list #'char-invertcase "Abab") ==> (#\a #\B #\A #\B)
(map 'string #'character (list 48 49 50 51)) ==> "0123"
(sort (list 3 1 5 4) #'<) ==> (1 3 4 5)
(sort (vector 3 1 5 4) #'<) ==> #(1 3 4 5)
(sort "zzzxyxyyxyzz" #'char<) ==> "xxxyyyyzzzzz"
(elt "abafb" 3) ==> #\f
(elt (list 'a 'b 'a 'f 'b) 3) ==> F
(elt (vector 'a 'b 'a 'f 'b) 3) ==> F
13
Name:
Anonymous
2013-03-23 14:58
>>1
The function SYMTA::CHAR-INVERTCASE is undefined.
(map 'string #'character (list 48 49 50 51))
Stop using CLISP: it is Jewish and non-conforming to ANSI.