⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.140
Server IP:
68.65.123.197
Server:
Linux premium49.web-hosting.com 4.18.0-553.54.1.lve.el8.x86_64 #1 SMP Wed Jun 4 13:01:13 UTC 2025 x86_64
Server Software:
LiteSpeed
PHP Version:
8.2.29
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
proc
/
self
/
root
/
lib64
/
guile
/
2.0
/
ccache
/
oop
/
goops
/
Edit File: describe.go
GOOF----LE-8-2.0v2 ]i 4 h_ ] g guile g define-module* g oop g goops g describe g filenameS f oop/goops/describe.scm g importsS g ice-9 g session g format g exportsS g set-current-module g defined? g toplevel-define! ! "g make # " $ " %g
& % ' % (g nameS )g add-method! * ) + ) ,g
- , . , /g specializersS 0g
1g formalsS 2g x 32 4g bodyS 5f ~s is 652 7g cond 8g integer? 982 :f an integer ;: <9; =g real? >=2 ?f a real @? A>@ Bg complex? CB2 Df a complex number ED FCE Gg null? HG2 If an empty list JI KHJ Lg boolean? ML2 Nf a boolean value (~s) Og if Pg quote Qg true RPQ Sg false TPS UO2RT VNU WMV Xg char? YX2 Zf a character, ascii value is ~s [g char->integer \[2 ]Z\ ^Y] _g symbol? `_2 af a symbol ba c`b dg list? ed2 ff a list gf heg ig pair? ji2 kg cdr lk2 mil nf an improper list on pf a pair qp rOmoq sjr tg string? ut2 vg eqv? wf xv2w yf an empty string zy {f a string of length ~s |g string-length }|2 ~{} Oxz~ u g vector? 2 P v2 f an empty vector f a vector of length ~s g vector-length 2 O g eof-object? 2 f the end-of-file object g else f an unknown object (~s) 2 7<AFKW^chs f .~% g *unspecified* 6 g make-procedureS g procedureS g
g let g name g procedure-name 2 f `~s' g display 2 O f is f an anonymous Oa f procedure f with g arity 2 g slot-bound? g class-name g safe-class-name g
f ~S is an instance of class ~A~% g class-of 2 2 f Slots are: ~% g for-each g lambda g slot g slot-definition-name f ~S = ~A~% 2 f ~S g slot-ref 2 f #
O g class-slots g
f '~S is a class. It's an instance of ~A~% 2 f Superclasses are:~% g class f ~A~% g class-direct-supers 2 g slots g class-direct-slots 2 G f (No direct slot)~% g begin f Directs slots are:~% g s O g classes g class-direct-subclasses 2 G f (No direct subclass)~% f Directs subclasses are:~% O f Class Precedence List is:~% g class-precedence-list2 g methodsg class-direct-methods2 G f (No direct method)~% f Class direct methods are:~% O !g generic-function-name"!2 #" $g generic-function-methods%$2 &% '#& (f 3~S is a generic function. It's an instance of ~A.~%)( *f (No method defined for ~S)~%+* ,f Methods defined for ~S~%-, .2 /3. 0/ 1-0 2O+1 3')2 43 5 0 6 0 7g omit-generic8279g letrec:g print-args;g args<; =G; >g newline?> @=? Ai; B Cg carDC; ED FE Gk; H:G IABFH J; KJ LBK? M7@IL N<M O:N PO Qf Method ~A~%RQ2 SG7 Tg gfUg method-generic-functionVU2 WTV XW Yf Generic: ~A~%Z!T [YZ \f (No generic)~%]\ ^OT[] _X^ `OS_ af Specializers:ba cg method-specializersdc2 e:d f9PR`be gf hg provideC 5 h ]4 5 4 > " G 45 $ " i $ !4!4$'(5> " G " 4+i4$./0i 13458:=?BDILNQSXZ[afnptwy{| " hH ]4 > " G 4 5$ 4> " G " 4 5$ 4> " G " 4 5$ 4> " G " ( 4 > " G " 4 5$ %4 $ " > " G " g4 5$ 44 5> " G " > $ 4> " G " $ 4> " G " $ 6 $ 4> " G " 4> " G " 4 5$ > $ 4> " G " 44 5> " G " | $ > $ 4> " G " 44 5> " G " 74 5$ 4> " G " 4 > " G 4!> " G C | g x F g filenamef oop/goops/describe.scm # $ $ $ & " % # & ( & # - & : ' D % E ' J ' # O ' \ ( f % g ( l ( # q ( % ) ) # ) * % * * # * : * @ * F * + % + + # , + - % - - # - . % . . ## . 2 / 6 % 9 / #: / > / ? 0 D 0 'I 0 V 1 [ 1 '` 1 m 2 w % { 2 $| 2 2 3 3 ' 3 4 4 ' 4 ? 4 5 % 5 $ 5 5 6 6 ' 6 7 7 ' 7 ? 7 8 % 8 8 # 8 9 " 9 #) 9 2 : 7 : < : ^ F C5> " G 45 $ " i $ !4!4$'(5> " G " 4+i4$./i 134 h ] 4 5$ 4> " G " 4 > " G 4> " G 4$ a" > " G 4> " G 4> " G 6 g x g name g filenamef oop/goops/describe.scm = > > ? @ @ @ + A = B A B F B O C W C _ C d C m D q D v D E E E F C5> " G h ]4 5$ 6 C g class g filenamef oop/goops/describe.scm K L L L L M g nameg safe-class-name CR45 $ " i $ !4!4$'(5> " G " 4+i4$./i 134 h8 ] 4 54L 5$ 44L 55" 6 g slot 8 g name 8 g filenamef oop/goops/describe.scm V W W X Z Z [ % [ ' & [ , 0 [ 6 \ 8 X 8 C hX ]4 4 5> " G 4> " G 4 O 4 5> " G C g x S g filenamef oop/goops/describe.scm P Q Q R R R Q U % U * U 3 V = ] B ] D ] I V S C5> " G 45 $ " i $ !4!4$'(5> " G " 4+i4$./i 134 h u ]4 56m g class g filenamef oop/goops/describe.scm i i ' i 2 i C h q ]4 56i g s g filenamef oop/goops/describe.scm r s ! s , s C h q ]4 56i g s g filenamef oop/goops/describe.scm } ~ ! ~ , ~ C h u ]4 56m g s g filenamef oop/goops/describe.scm # . C hP C ] 44 54 5> " G 4> " G 44 5> " G 4 5( 4 > " G " '4 > " G 4> " G 4 5( 4 > " G " '4> " G 4> " G 4> " G 44 5> " G 4 5( 64> " G 6 ; g x M g slots W g classes g methods#M g filenamef oop/goops/describe.scm c d d e e e / e d % h * h / h 8 i = j H i Q m W m _ n ` o e o j o w q | q q r x x y z z z | | | } # + 0 2 3 8 = M 2 M C5> " G 45 $ " i $ !4!4$'(5> " G " 4+i4$./%i 1344!$(*, h c ] 6 [ g x g filenamef oop/goops/describe.scm C h` ]4 54 544 5> " G ( 64> " G 6 g x ] g name ] g methods ] g filenamef oop/goops/describe.scm " " $ ) 7 < @ A F M ] ] C5> " G 45 $ " i $ !4!4$'(5> " G " 4+i4$./,i6184g>QUY!\ac h - 1 3 " q( 6 $ 34 > " G 445> " G "4 > " G 445> " G 6 4 > " G ( G4 5$ 445> " G " 4 > " G " 4 > " G 4 5" g x g omit-generic g args ~ g gf g filenamef oop/goops/describe.scm - 1 4 ) 9 : ; ) @ K , Q R d g ) r ~ ~ . ( C5> " G hi6 g m , g t 4 I g t g t g t g t J_ g t g filenamef oop/goops/describe.scm - # = K P c C y { { C6
Simpan