/[gcl]/gcl/ansi-tests/slot-boundp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/slot-boundp.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

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