Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Tue May 6 12:13:26 2003 UTC | revision 1.2 by pfdietz, Wed May 14 12:25:06 2003 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | (slot-boundp obj 'c)) | (slot-boundp obj 'c)) |
38 | nil) | nil) |
39 | ||
40 | ;;; Argument order test(s) | |
41 | ||
42 | (deftest slot-boundp.order.1 | |
43 | (let ((obj (make-instance 'slot-boundp-class-01)) | |
44 | (i 0) x y) | |
45 | (values | |
46 | (slot-boundp (progn (setf x (incf i)) obj) | |
47 | (progn (setf y (incf i)) 'a)) | |
48 | i x y)) | |
49 | nil 2 1 2) | |
50 | ||
51 | ;;; Error tests | ;;; Error tests |
52 | ||
53 | (deftest slot-boundp.error.1 | (deftest slot-boundp.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |