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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pfdietz, Tue Jun 29 11:22:25 2004 UTC revision 1.16 by pfdietz, Sat Jan 8 12:57:27 2005 UTC
# Line 380  Line 380 
380      (declare (optimize))      (declare (optimize))
381      (%x))      (%x))
382    t)    t)
   
 ;;; Symbol-macrolet tests  
   
 (deftest symbol-macrolet.1  
   (loop for s in *cl-non-variable-constant-symbols*  
         for form = `(ignore-errors (symbol-macrolet ((,s 17)) ,s))  
         unless (eql (eval form) 17)  
         collect s)  
   nil)  
   
 (deftest symbol-macrolet.2  
   (symbol-macrolet ())  
   nil)  
   
 (deftest symbol-macrolet.3  
   (symbol-macrolet () (declare (optimize)))  
   nil)  
   
 (deftest symbol-macrolet.4  
   (symbol-macrolet ((x 1))  
     (symbol-macrolet ((x 2))  
       x))  
   2)  
   
 (deftest symbol-macrolet.5  
   (let ((x 10))  
      (symbol-macrolet ((y x))  
        (list x  
              y  
              (let ((x 20)) x)  
              (let ((y 30)) x)  
              (let ((y 50)) y)  
              x  
              y)))  
   (10 10 20 10 50 10 10))  
   
 (deftest symbol-macrolet.6  
   (symbol-macrolet () (values)))  
                         
 (deftest symbol-macrolet.7  
   (symbol-macrolet () (values 'a 'b 'c 'd 'e))  
   a b c d e)  
                         
   
 (deftest symbol-macrolet.error.1  
   (signals-error  
    (symbol-macrolet ((x 10))  
      (declare (special x))  
      20)  
    program-error)  
   t)  
   
 (defconstant constant-for-symbol-macrolet.error.2 nil)  
   
 (deftest symbol-macrolet.error.2  
   (signals-error (symbol-macrolet ((constant-for-symbol-macrolet.error.2 'a))  
                    constant-for-symbol-macrolet.error.2)  
                  program-error)  
   t)  
   
 (deftest symbol-macrolet.error.3  
   (signals-error (symbol-macrolet ((*pathnames* 19)) *pathnames*)  
                  program-error)  
   t)  
       

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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