pushnew has weird macroexpansion

[tar@ISI.EDU (Thomas A. Russ)]

It seems to me that the macroexpansion of pushnew with compilcated
arguments is a little bit weird.  Consider the lines marked with
";; ????" in the example below:

(macroexpand '(pushnew (calculate-value 'foo) (the-slot bar)))

==>

  (LET* ((#:G8671 (CALCULATE-VALUE 'FOO))
	 (#:G8673 BAR)
	 (#:G8672 (ADJOIN #:G8671 (THE-SLOT #:G8673))))
    #:G8673          ;; ????
    #:G8672          ;; ????
    (FUNCALL #'(SETF THE-SLOT) #:G8672 #:G8673))


I assume that there is some reason for this?

--
________________________________________________________________________
Thomas A. Russ,  USC/Information Sciences Institute          tar@isi.edu    
4676 Admiralty Way, Marina del Rey, CA 90292          (310) 822-1511x775