/[gcl]/gcl/ansi-tests/macro-function.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/macro-function.lsp

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

revision 1.1 by pfdietz, Sat Jun 4 03:32:39 2005 UTC revision 1.2 by pfdietz, Sat Jun 4 17:36:38 2005 UTC
# Line 86  Line 86 
86       fn)       fn)
87    nil)    nil)
88    
89    (deftest macro-function.12
90      (let ((sym (gensym)))
91        (eval `(defmacro ,sym () t))
92        (let ((i 0))
93          (values
94           (funcall (macro-function (progn (incf i) sym)) (list sym) nil)
95           i)))
96      t 1)
97    
98    (deftest macro-function.13
99      (let ((sym (gensym)))
100        (eval `(defmacro ,sym () t))
101        (let ((i 0) a b)
102          (values
103           (funcall (macro-function (progn (setf a (incf i)) sym)
104                                    (progn (setf b (incf i)) nil))
105                    (list sym) nil)
106           i a b)))
107      t 2 1 2)
108    
109    (deftest macro-function.14
110      (let ((sym (gensym))
111            (i 0))
112        (setf (macro-function (progn (incf i) sym)) (macro-function 'pop))
113        (values
114         (eval `(let ((x '(a b c)))
115                  (list
116                   (,sym x)
117                   x)))
118         i))
119      (a (b c)) 1)
120    
121    (deftest macro-function.15
122      (let ((sym (gensym))
123            (i 0) a b)
124        (setf (macro-function (progn (setf a (incf i)) sym)
125                              (progn (setf b (incf i)) nil))
126              (macro-function 'pop))
127        (values
128         (eval `(let ((x '(a b c)))
129                  (list
130                   (,sym x)
131                   x)))
132         i a b))
133      (a (b c)) 2 1 2)
134    
135    
136    
137  ;;; Error tests  ;;; Error tests
138    
139  (deftest macro-function.error.1  (deftest macro-function.error.1

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