/[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.14 by pfdietz, Sat Jan 17 22:34:46 2004 UTC revision 1.15 by pfdietz, Mon May 9 00:22:42 2005 UTC
# Line 263  Line 263 
263                                (c nil c-p)                                (c nil c-p)
264                                &allow-other-keys)                                &allow-other-keys)
265    (declare (ignore slots-to-init))    (declare (ignore slots-to-init))
266    (when a-p (setf (slot-value obj 'a) a))  ;;  (when a-p (setf (slot-value obj 'a) a))
267    (when b-p (setf (slot-value obj 'b) b))  ;;  (when b-p (setf (slot-value obj 'b) b))
268    (when c-p (setf (slot-value obj 'c) c))  ;;  (when c-p (setf (slot-value obj 'c) c))
269      (when a-p (setf (shared-init-class-03-a obj) a))
270      (when b-p (setf (shared-init-class-03-b obj) b))
271      (when c-p (setf (shared-init-class-03-c obj) c))
272    obj)    obj)
273    
274  (deftest shared-initialize.3.1  (deftest shared-initialize.3.1

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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