[clisp-list] destructive functions and &rest

[Yaroslav K. <kav...@je...>]

I can use in function:

  (defun my-fun (&rest args) ...

destructive functions with args?

Example:

(defun dilute-blanks (&rest args)
  (labels ((dilute (l)
	     (when (cdr l)
	       (dilute (cdr l))
	       (let ((s (list " ")))
		 (rplacd s (cdr l))
		 (rplacd l s)))))
    (dilute args)))

CL-USER> (dilute-blanks 1 2 3 4 5 6)
(1 " " 2 " " 3 " " 4 " " 5 " " 6)

There are no "reefs"?

Thanks.

-- 
WBR, Yaroslav Kavenchuk.