/[gcl]/gcl/ansi-tests/shared-initialize.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/shared-initialize.lsp

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

revision 1.5 by pfdietz, Fri May 2 12:11:00 2003 UTC revision 1.6 by pfdietz, Sat May 3 15:51:22 2003 UTC
# Line 386  Line 386 
386    (nil t)    (nil t)
387    foo)    foo)
388    
389    (deftest shared-initialize.5.3
390      (let* ((class (find-class 'shared-init-class-05))
391             (obj (allocate-instance class))
392             (obj2 (allocate-instance class)))
393        (slot-makunbound obj 'a)
394        (slot-makunbound obj 'b)
395        (values
396         (eqt obj (shared-initialize obj t :a 117))
397         (map-slot-boundp* obj '(a b))
398         (map-slot-value obj '(a b))
399         (map-slot-value obj2 '(a b))))
400      t
401      (t t)
402      (117 foo)
403      (117 foo))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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