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

Diff of /gcl/ansi-tests/slot-exists-p.lsp

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

revision 1.2 by pfdietz, Sat May 10 15:41:35 2003 UTC revision 1.3 by pfdietz, Sat May 10 15:43:31 2003 UTC
# Line 128  Line 128 
128    (a d e))    (a d e))
129    
130  (deftest slot-exists-p.16  (deftest slot-exists-p.16
131    (let ((obj (make-condition 'slot-exists-p-condition-01)))    (let ((obj (make-condition 'slot-exists-p-condition-02)))
132      (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym))))      (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym))))
133    (t t t t t nil))    (t t t t t nil))
134    

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