File: mod1.tci-0

package info (click to toggle)
theme-d 7.2.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 21,036 kB
  • sloc: lisp: 9,625; sh: 5,321; makefile: 715; ansic: 477
file content (12 lines) | stat: -rw-r--r-- 1,903 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(tests mod1)
#f
6
((standard-library core))
()
()
()
((declare (internal-variable (address () 0 <window> #t) (object-ref (address builtins -1 <class> #t)) #t #f #t #f #t)))
(general-variable <window> #f #t (address () 0 <window> #t) #f #t #f (define-class "<window>" (object-ref (address builtins -1 <object> #t)) ((name (object-ref (address builtins -1 <string> #t)) module module #f (empty))) #t #f #f public public ((object-ref (address builtins -1 <string> #t))) (simple-proc-class (:pair (object-ref (address builtins -1 <string> #t)) (object-ref (address builtins -1 <null> #t))) (object-ref (address () 0 <window> #t)) #t #t #f #f) (simple-proc-class (:pair (object-ref (address () 0 <window> #t)) (:pair (object-ref (address builtins -1 <string> #t)) (object-ref (address builtins -1 <null> #t)))) (object-ref (address builtins -1 none #t)) #f #t #f #f) (procedure #f (simple-proc-class (:pair (object-ref (address () 0 <window> #t)) (:pair (object-ref (address builtins -1 <string> #t)) (object-ref (address builtins -1 <null> #t)))) (object-ref (address builtins -1 none #t)) #f #t #f #f) #f (self _field1) ((object-ref (address () 0 <window> #t)) (object-ref (address builtins -1 <string> #t))) ((internal-variable (address () 1 self #f) (object-ref (address () 0 <window> #t)) #t #f #t #f #f) (internal-variable (address () 2 _field1 #f) (object-ref (address builtins -1 <string> #t)) #t #t #t #f #f)) (object-ref (address builtins -1 none #t)) (field-set! #f #t #f #t (var-ref (address () 1 self #f)) name (var-ref (address () 2 _field1 #f))) toplevel initialize #f #f #t #f #f) #t ((var-ref (address () 2 _field1 #f)))))
(gen-proc (address () 4 draw #t))
(declare-method (address () 4 draw #t) (address () 5 () #t) (simple-proc-class (:pair (object-ref (address () 0 <window> #t)) (object-ref (address builtins -1 <null> #t))) (object-ref (address builtins -1 none #t)) #f #f #f #f) #f)
)