/[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.10 by pfdietz, Sat May 10 14:14:43 2003 UTC revision 1.11 by pfdietz, Sat May 10 17:14:56 2003 UTC
# Line 641  Line 641 
641     (b :initform 'y)))     (b :initform 'y)))
642    
643  (deftest shared-initialize.9.1  (deftest shared-initialize.9.1
644    (let* ((class (find-class 'shared-init-class-08))    (let* ((class (find-class 'shared-init-class-09))
645           (obj (allocate-instance class)))           (obj (allocate-instance class)))
646      (slot-makunbound obj 'a)      (slot-makunbound obj 'a)
647      (values      (values

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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