2012-02-06 95 views

回答

1

在Common Lisp中,至少只能在loop宏的上下文中使用with。请参阅Common Lisp Hyperspec

+0

但 “我们” 和 “与” 两个功能上等同? – 2012-02-06 03:07:30

1

它们确实在功能上等同。

事实上,至少SBCL将宏中的with的任何使用扩展为封闭的LET表单。

运行以下:

(macroexpand '(loop with foo = 5 repeat 10 collect foo)) 

结果在下面的扩展:

(BLOCK NIL 
    (LET ((FOO 5)) 
    (LET ((#:LOOP-REPEAT-1681 (CEILING 10))) 
     (DECLARE (TYPE INTEGER #:LOOP-REPEAT-1681)) 
     (SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD (#:LOOP-LIST-HEAD-1682 
               #:LOOP-LIST-TAIL-1683) 
     (SB-LOOP::LOOP-BODY NIL 
          ((IF (<= #:LOOP-REPEAT-1681 0) 
           (GO SB-LOOP::END-LOOP) 
           (DECF #:LOOP-REPEAT-1681))) 
          ((SB-LOOP::LOOP-COLLECT-RPLACD 
           (#:LOOP-LIST-HEAD-1682 #:LOOP-LIST-TAIL-1683) 
           (LIST FOO))) 
          ((IF (<= #:LOOP-REPEAT-1681 0) 
           (GO SB-LOOP::END-LOOP) 
           (DECF #:LOOP-REPEAT-1681))) 
          ((RETURN-FROM NIL 
           (SB-LOOP::LOOP-COLLECT-ANSWER 
           #:LOOP-LIST-HEAD-1682)))))))) 
相关问题