Mercurial > hg > xemacs-beta

diff tests/automated/weak-tests.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents aa0db78e67c4
children 7b628daa39d4
line wrap: on
line diff
--- a/tests/automated/weak-tests.el	Wed Jun 20 21:51:09 2007 +0000
+++ b/tests/automated/weak-tests.el	Thu Jun 21 13:39:36 2007 +0000
@@ -55,8 +55,8 @@
 (let* ((p (cons 3 4))
        (finalized-p nil)
        (eph1 (make-ephemeron (cons 1 2) p
-			     '(lambda (value)
-				(setq finalized-p t))))
+			     #'(lambda (value)
+                                 (setq finalized-p t))))
        (eph2 (make-ephemeron p p)))
   (Assert (eq p (ephemeron-ref (make-ephemeron (cons 1 2) p))))
   (Assert (ephemeron-p (make-ephemeron (cons 1 2) p)))
@@ -233,7 +233,7 @@
 			      (make-ephemeron inner_cons
 					      (cons 1 2)
 					      '(lambda (v) t))
-			      '(lambda (v) t))))
+			      #'(lambda (v) t))))
   (Assert (ephemeron-ref (ephemeron-ref weak1)))
   (garbage-collect)
   ;; assure the inner ephis are still there