/[gcl]/gcl/ansi-tests/find-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-class.lsp

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

revision 1.2 by pfdietz, Sat May 31 12:36:09 2003 UTC revision 1.3 by pfdietz, Sun Jul 27 15:30:39 2003 UTC
# Line 238  Line 238 
238                          (:method ((x find-class-class-01)) :good)                          (:method ((x find-class-class-01)) :good)
239                          (:method ((x t)) nil))))                          (:method ((x t)) nil))))
240             (obj (make-instance class1)))             (obj (make-instance class1)))
241        (values        (assert (typep fn 'function))
242         (funcall fn nil)        (locally
243         (funcall fn obj)         (declare (type function fn))
244         (setf (find-class 'find-class-class-01) nil)         (values
245         (funcall fn nil)          (funcall fn nil)
246         (funcall fn obj))))          (funcall fn obj)
247            (setf (find-class 'find-class-class-01) nil)
248            (funcall fn nil)
249            (funcall fn obj)))))
250    nil :good nil nil :good)    nil :good nil nil :good)
251    
252  (deftest find-class.23  (deftest find-class.23
# Line 259  Line 262 
262                          (:method ((x t)) t))))                          (:method ((x t)) t))))
263             (obj1 (make-instance class1))             (obj1 (make-instance class1))
264             (obj2 (make-instance class2)))             (obj2 (make-instance class2)))
265        (values        (assert (typep fn 'function))
266         (funcall fn nil)        (locally
267         (funcall fn obj1)         (declare (type function fn))
268         (funcall fn obj2)         (values
269         (setf (find-class 'find-class-class-01) nil)          (funcall fn nil)
270         (funcall fn nil)          (funcall fn obj1)
271         (funcall fn obj1)          (funcall fn obj2)
272         (funcall fn obj2))))          (setf (find-class 'find-class-class-01) nil)
273            (funcall fn nil)
274            (funcall fn obj1)
275            (funcall fn obj2)))))
276    t 1 2 nil t 1 2)    t 1 2 nil t 1 2)
277    
278  ;;; Error tests  ;;; Error tests

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

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