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

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

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

revision 1.1 by pfdietz, Mon Dec 13 02:56:37 2004 UTC revision 1.2 by pfdietz, Mon Dec 13 03:37:43 2004 UTC
# Line 161  Line 161 
161                            (*trace-output*)                            (*trace-output*)
162                            (assert (null (generic-function-to-trace 'a 'b))))                            (assert (null (generic-function-to-trace 'a 'b))))
163                          "")))                          "")))
164      (assert (equal (trace) '(generic-function-to-trace)))      (prog1
165      (untrace generic-function-to-trace)          (trace)
166      (trace))        (untrace generic-function-to-trace)
167    nil)        (assert (null (trace)))))
168      (generic-function-to-trace))
169    
170    (declaim (notinline generic-function-to-trace2))
171    
172    (deftest trace.15
173      (progn
174        (untrace)
175        (let* ((gf (defgeneric generic-function-to-trace2 (x y)))
176               (m (defmethod generic-function-to-trace2 ((x integer)(y integer))
177                    :foo)))
178          (defmethod generic-function-to-trace2 ((x symbol)(y symbol)) :bar)
179          (assert (eql (generic-function-to-trace2 1 2) :foo))
180          (assert (eql (generic-function-to-trace2 'a 'b) :bar))
181          (trace generic-function-to-trace2)
182          (assert (equal (trace) '(generic-function-to-trace2)))
183          (remove-method gf m)
184          (prog1 (trace) (untrace))))
185      (generic-function-to-trace2))

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