/[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.4 by pfdietz, Fri May 2 12:05:11 2003 UTC revision 1.5 by pfdietz, Fri May 2 12:11:00 2003 UTC
# Line 372  Line 372 
372    t    t
373    (nil t)    (nil t)
374    foo)    foo)
375    
376    (deftest shared-initialize.5.2
377      (let* ((class (find-class 'shared-init-class-05))
378             (obj (allocate-instance class)))
379        (slot-makunbound obj 'a)
380        (slot-makunbound obj 'b)
381        (values
382         (eqt obj (shared-initialize obj '(b)))
383         (map-slot-boundp* obj '(a b))
384         (slot-value obj 'b)))
385      t
386      (nil t)
387      foo)
388    

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

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