/[gcl]/gcl/ansi-tests/defclass-01.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-01.lsp

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

revision 1.14 by pfdietz, Wed Apr 30 11:16:01 2003 UTC revision 1.15 by pfdietz, Tue Jun 17 11:30:31 2003 UTC
# Line 613  Line 613 
613    
614  (let ((*class-21-s1-initvar-1* 0)  (let ((*class-21-s1-initvar-1* 0)
615        (*class-21-s1-initvar-2* 0))        (*class-21-s1-initvar-2* 0))
   (declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*))  
616    (defclass class-21 ()    (defclass class-21 ()
617      ((s1 :initarg :s1  :initarg :s1b)      ((s1 :initarg :s1  :initarg :s1b)
618       (s2 :initarg :s1b :initarg :s2))       (s2 :initarg :s1b :initarg :s2))

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