簡單的LISP問題

Question

我只是學習LISP和我有麻煩執行以下操作：

; return ":h :i" 
(defun get-char() 
    (loop for char across "ab" 
     collect (concatenate 'string ":" (string char)))) 

; plist 
(defun get-list() (list :a "1" :b "2")) 

; I cannot get this to work 
; <-- returns all null, cannot get plist values :-(
(loop for x in (get-char) 
     collect (getf (get-list) x)) 

; this works fine... 
(loop for x in '(:a :b) 
     collect (getf (get-list) x)) 

我知道IM接近，但我只是失去了一些東西。

非常感謝:-)

Answer 1

更改get-char函數從字符返回關鍵字的列表：

(defun get-char() 
    (loop 
    for char across "ab" 
    collect (intern (string-upcase char) :keyword))) 

評估(get-char) =>(:A :B)。此外：

(loop for x in (get-char) collect (getf (get-list) x)) 

=>

("1" "2")