diff lisp/emacs-lisp/cl.el @ 72805:e5e7b6d129dd

(pushnew): Add missing `,'.
author Reiner Steib <Reiner.Steib@gmx.de>
date Mon, 11 Sep 2006 11:15:54 +0000
parents a384943e84d7
children fc21b1eb4271 a1a25ac6c88a
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl.el	Mon Sep 11 09:47:43 2006 +0000
+++ b/lisp/emacs-lisp/cl.el	Mon Sep 11 11:15:54 2006 +0000
@@ -160,7 +160,7 @@
   (if (symbolp place)
       (if (null keys)
 	  `(let ((pushnew-internal ,place))
-	     (add-to-list 'pushnew-internal x nil 'eql)
+	     (add-to-list 'pushnew-internal ,x nil 'eql)
 	     (setq ,place pushnew-internal))
 	(list 'setq place (list* 'adjoin x place keys)))
     (list* 'callf2 'adjoin x place keys)))