나는 다음과 같은 코드를 작성하려고 매크로

Question

에서 생성 된 기호 boundp 사용 :

(unless (boundp 'foo-1) 
(setq foo-1 bar-1)) 
(find-file foo-1) 

그러나, 기호 foo는-1과 바-1은 매크로를 통해 생성해야합니다. 나는 다음과 같은 것을 시도했지만, boundp은 내가 원하는 방식으로 작동하지 않는다. 나는 매크로에 익숙하지 않다. 나는 분명히 잘못된 것을하고 있습니까? 또한, 나는 내가 여기에 매크로를 학대? ... 당신은 그래서 그 무엇 분명하지 않다 assign-bar-to-foo에 대한 코드를 제공하지 않았더라도

(defmacro foo-setq-bar (X) 
    `(setq ,(intern (concat "foo-" (number-to-string X))) (assign-bar-to-foo ,X))) 
(defmacro foo-find-file (X) 
    `(progn 
    (unless (boundp (quote ,(intern (concat "foo-" (number-to-string X))))) 
     (foo-setq-bar ,X)) 
    (find-file ,(intern (concat "foo-" (number-to-string X)))))) 

Answer 1

제공 한 코드가 잘 실행 것으로 보인다.

(defmacro find-foobar (X) 
    (let* ((X-as-string (number-to-string X)) 
     (foo (intern (concat "foo-" X-as-string)))     
     (bar (intern (concat "bar-" X-as-string))))   
    `(progn (unless (boundp (quote ,foo))    
      (setq ,foo ,bar)) 
      (find-file ,foo)))) 

당신이 당신의 매크로 (macroexpand FORM)에로 확장 코드를 확인할 수 있습니다 기억 : 어떤 경우에, 이것은 당신이 당신의 예를 설명 어떻게해야 매크로입니다.