/[gcl]/gcl/ansi-tests/compile.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/compile.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)
   
           
   
   
   
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26