Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Oct 11 02:49:46 2002 UTC | revision 1.2 by pfdietz, Fri Oct 11 03:09:21 2002 UTC | |
---|---|---|
# | Line 78 | Line 78 |
78 | (funcall (compile nil `(lambda () (eq ',x ',x))))) | (funcall (compile nil `(lambda () (eq ',x ',x))))) |
79 | t) | t) |
80 | ||
81 | (deftest compile.7 | |
82 | (let ((x (copy-seq "abc"))) | |
83 | (eq x (funcall (compile nil `(lambda () ,x))))) | |
84 | t) | |
85 | ||
86 | (deftest compile.8 | |
87 | (let ((x (list 'a 'b))) | |
88 | (eq x (funcall (compile nil `(lambda () ',x))))) | |
89 | t) | |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |