간단한 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)) 

내가 메신저 가까이 알고 있지만 난 그냥 뭔가를 놓친 거지.

감사

Answer 1

변경 get-char 기능 :-) 많은 문자에서 키워드의 목록을 반환합니다 :

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

는 =>(:A :B)(get-char) 평가. 또한 :

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

=>

("1" "2")