IRC> (macroexpand-1 '(dlist-push foo '(list)))
(LET ((#:G8294 NIL) (#:G8291 FOO) (#:G8292 '(LIST)))
  (IF #:G8294
      (IF #:G8292
          (LET ((#:G8293 (DLIST-LAST #:G8292)))
            (SETF (NEXT #:G8293) (DCONS #:G8293 #:G8291 NIL))
            (SETF (DLIST-LAST #:G8292) (NEXT #:G8293))
            #:G8292)
          (SETF '(LIST) (DLIST #:G8291)))
      (IF #:G8292
          (LET ((#:G8293 (DLIST-FIRST #:G8292)))
            (SETF (PREV #:G8293) (DCONS NIL #:G8291 #:G8293))
            (SETF (DLIST-FIRST #:G8292) (PREV #:G8293))
            #:G8292)
          (SETF '(LIST) (DLIST #:G8291)))))
T