Re: "push" creating circular objects

[Charles Sebold]

On 20 Aug 2008, Charles Sebold wrote:

> Here's the code in question:
>
> (defun Textile-list-context (textile-list-tag)
> "Return list of HTML tags corresponding to list context (ol, ul)."
> (let ((my-list nil))
> (dolist (this-tag (delete "" (split-string textile-list-tag "")))
> (cond
> ((string= this-tag "#")
> (push "ol" my-list))
> ((string= this-tag "*")
> (push "ul" my-list))))
> my-list))

I just changed it from push to append, with no change in behavior:

(defun Textile-list-context (textile-list-tag)
  "Return list of HTML tags corresponding to list context (ol, ul)."
  (let ((my-list nil))
    (dolist (this-tag (delete "" (split-string textile-list-tag "")))
      (cond
       ((string= this-tag "#")
        (setq my-list (append (list "ol") my-list)))
       ((string= this-tag "*")
        (setq my-list (append (list "ul") my-list)))))
    my-list))

Arrgh.  Anybody have any ideas?
-- 
Charles Sebold                                      20th of August, 2008