[编程交流] 函数参数和局部v

(defun test1 (L /)
 (while
   (setq L (cdr L))
   (print (car L))
   )
 )

(defun test1 (L / [color="red"]L[/color])
 (while
   (setq L (cdr L))
   (print (car L))
   )
 )

(defun test2 (L / nL)
 (setq nL L)
 (while
   (setq nL (cdr nL))
   (print (car nL))
   )
 )

(prompt "\npr")
(defun c:pr (/ lst)
 (setq lst '("A" "B" "C" "D" "E" "F"))
 (print lst)
 (test1 lst)
 (princ "\n===")
 (test2 lst)
 (princ)
 )

[b][color=BLACK]([/color][/b]defun test1 [b][color=FUCHSIA]([/color][/b]l[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]cond [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]listp l[b][color=MAROON])[/color][/b]
        [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]setq l [b][color=BLUE]([/color][/b]cdr l[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
               [b][color=GREEN]([/color][/b]print l[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]