home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1996-08-23 | 9.2 KB | 215 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "FFI-DEMOS")
- #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "FFI")
- #Y(#:TOP-LEVEL-FORM-3
- #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
- C3 19 01
- )
- ALLOCASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="AllocAslRequest"
- #2="asl.library" FFI::FOREIGN-LIBRARY -48.
- (#3=(:RETURN-TYPE C-POINTER :NONE)
- #4=(:ARGUMENTS (REQTYPE UINT32 :IN :NONE :D0)
- (TAGLIST UINT32 :IN :ALLOCA :A0)
- )
- #5=(:OFFSET -48.)
- )
- (DEF-LIB-CALL-OUT ALLOCASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
- FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
- )
- #Y(#:TOP-LEVEL-FORM-4
- #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
- C3 19 01
- )
- FREEASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="FreeAslRequest"
- #2="asl.library" FFI::FOREIGN-LIBRARY -54.
- (#3=(:RETURN-TYPE NIL :NONE)
- #4=(:ARGUMENTS (REQUESTER C-POINTER :IN :NONE :A0)) #5=(:OFFSET -54.)
- )
- (DEF-LIB-CALL-OUT FREEASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
- FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
- )
- #Y(#:TOP-LEVEL-FORM-5
- #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
- C3 19 01
- )
- ASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="RequestFile" #2="asl.library"
- FFI::FOREIGN-LIBRARY -60.
- (#3=(:RETURN-TYPE BOOLEAN :NONE)
- #4=(:ARGUMENTS (REQUESTER C-POINTER :IN :NONE :A0)
- (TAGLIST UINT32 :IN :ALLOCA :A1)
- )
- #5=(:OFFSET -60.)
- )
- (DEF-LIB-CALL-OUT ASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
- FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
- )
- #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ADDPART2 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ADDPART2
- #42Y(00 02 00 00 00 03 D8 AD AE 71 48 8D 92 16 AE AF 71 48 71 98 70 34 D9
- 37 06 8D 5D 0B C5 14 AE 32 03 25 19 03 00 1A 76 00 1A 73
- )
- STRING ":/" "/"
- ) )
- #Y(#:TOP-LEVEL-FORM-7-1
- #138Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
- 88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
- 2E 01 E6 E2 E7 31 88 E6 E8 31 82 E9 30 5D EA 30 5D EB 2E 01 EB E2 EC
- 31 88 EB ED 31 82 EE 30 5D EF 30 5D F0 2E 01 F0 E2 F1 31 88 F0 F2 31
- 82 EB F3 F4 03 1D 79 31 88 EB 64 1E 62 2C 03 1F F0 F3 F4 03 20 79 31
- 88 F0 64 1E 62 2C 03 1F DB 64 21 62 2C 03 1F DB 64 22 31 89 3D 19 01
- )
- MAKE-FR-FILE-DRAWER SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(MAKE-FR-FILE-DRAWER
- #33Y(00 00 00 00 80 1B 00 02 00 00 3C 02 3C 01 DA DB 71 33 DC AB DD B0 31
- 32 DC AB DE AF 31 32 15 19 03
- )
- :FILE :DRAWER #1=(FR-FILE-DRAWER) 3. FR-FILE-DRAWER 1. 2.
- )
- FR-FILE-DRAWER SYSTEM::DEFSTRUCT-DESCRIPTION #1#
- ((FILE 1. NIL T NIL) (DRAWER 2. NIL T NIL)) CLOS::DEFINE-STRUCTURE-CLASS
- (INLINE FR-FILE-DRAWER-P) FR-FILE-DRAWER-P SYSTEM::INLINE-EXPANSION
- ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-P))
- (BLOCK FR-FILE-DRAWER-P
- (SYSTEM::%STRUCTURE-TYPE-P 'FR-FILE-DRAWER SYSTEM::OBJECT)
- ) )
- #Y(FR-FILE-DRAWER-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) FR-FILE-DRAWER
- )
- (INLINE COPY-FR-FILE-DRAWER) COPY-FR-FILE-DRAWER
- ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-FR-FILE-DRAWER))
- (BLOCK COPY-FR-FILE-DRAWER (SYSTEM::%COPY-STRUCTURE STRUCTURE))
- )
- #Y(COPY-FR-FILE-DRAWER #11Y(00 01 00 00 00 02 AB 31 34 19 02))
- (FUNCTION FR-FILE-DRAWER-FILE (FR-FILE-DRAWER) T)
- (INLINE FR-FILE-DRAWER-FILE) FR-FILE-DRAWER-FILE
- (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-FILE))
- (BLOCK FR-FILE-DRAWER-FILE
- (THE T (SYSTEM::%STRUCTURE-REF 'FR-FILE-DRAWER SYSTEM::OBJECT 1.))
- ) )
- #Y(FR-FILE-DRAWER-FILE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
- FR-FILE-DRAWER 1.
- )
- (FUNCTION FR-FILE-DRAWER-DRAWER (FR-FILE-DRAWER) T)
- (INLINE FR-FILE-DRAWER-DRAWER) FR-FILE-DRAWER-DRAWER
- (#2# (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-DRAWER))
- (BLOCK FR-FILE-DRAWER-DRAWER
- (THE T (SYSTEM::%STRUCTURE-REF 'FR-FILE-DRAWER SYSTEM::OBJECT 2.))
- ) )
- #Y(FR-FILE-DRAWER-DRAWER #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
- FR-FILE-DRAWER 2.
- )
- SYSTEM::SETF-EXPANDER -1.
- #Y(SETF-FR-FILE-DRAWER-FILE
- #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
- SYSTEM::%STRUCTURE-STORE 'FR-FILE-DRAWER 1.
- )
- SETF SYSTEM::%SET-DOCUMENTATION
- #Y(SETF-FR-FILE-DRAWER-DRAWER
- #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
- SYSTEM::%STRUCTURE-STORE 'FR-FILE-DRAWER 2.
- )
- STRUCTURE SYSTEM::STRUCTURE-PRINT
- )
- #Y(#:TOP-LEVEL-FORM-7-2-1 #13Y(00 00 00 00 00 01 D8 D9 2F 02 3D 19 01)
- (C-STRUCT FR-FILE-DRAWER (FILE C-STRING) (DRAWER C-STRING)) FR-FILE-DRAWER
- FFI::PARSE-C-TYPE
- )
- #Y(#:TOP-LEVEL-FORM-7-2-2 #9Y(00 00 00 00 00 01 C3 19 01) FR-FILE-DRAWER)
- #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST2 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST2
- #54Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0B 54 19 02 DB AD DC DD 6D 04 06 6E 07 E0 AE E1 DD 6D 04 06 6E 07 AA
- AC 2F 0A 16 02 53 1A 5D
- )
- 0. ALLOCASLREQUEST ASLREQUEST "file" 4. C-STRING
- FFI::FOREIGN-ADDRESS-VARIABLE FFI::FOREIGN-VALUE "drawer" 8. ADDPART2
- FREEASLREQUEST
- ) )
- #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST3 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST3
- #57Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0D 54 19 02 DB AD DC DD 6E 06 6D 04 07 AA E0 6F 09 6E 0A AB E3 6F 09
- 6E 0A AA AC 2F 0C 16 03 53 1A 5A
- )
- 0. ALLOCASLREQUEST ASLREQUEST "f+d" 4. FR-FILE-DRAWER FFI::PARSE-C-TYPE
- FFI::FOREIGN-ADDRESS-VARIABLE FILE FFI::%SLOT FFI::FOREIGN-VALUE DRAWER
- ADDPART2 FREEASLREQUEST
- ) )
- #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST5 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST5
- #57Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0C 54 19 02 DB AD DC DD 6E 06 6D 04 07 6E 08 DD AB E1 71 31 DD AC E2
- 71 31 AA AC 2F 0B 16 03 53 1A 5A
- )
- 0. ALLOCASLREQUEST ASLREQUEST "f+d" 4. FR-FILE-DRAWER FFI::PARSE-C-TYPE
- FFI::FOREIGN-ADDRESS-VARIABLE FFI::FOREIGN-VALUE 1. 2. ADDPART2
- FREEASLREQUEST
- ) )
- #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST7 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST7
- #55Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0C 54 19 02 DB AD DC DD 6D 04 06 AA DF 6F 08 6E 09 AB E2 6F 08 6E 09
- AA AC 2F 0B 16 03 53 1A 5C
- )
- 0. ALLOCASLREQUEST ASLREQUEST "f+d" 4.
- #(C-STRUCT #(FILE DRAWER)
- #Y(:LAMBDA
- #22Y(00 02 00 00 00 03 62 6E 00 AA D9 AF 31 3F AA DA AE 31 3F 15 19
- 03
- )
- CLOS:MAKE-INSTANCE FILE DRAWER
- )
- C-STRING C-STRING
- )
- FFI::FOREIGN-ADDRESS-VARIABLE FILE FFI::%SLOT FFI::FOREIGN-VALUE DRAWER
- ADDPART2 FREEASLREQUEST
- ) )
- #Y(#:TOP-LEVEL-FORM-12
- #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
- WITH-FOREIGN-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
- #Y(WITH-FOREIGN-VALUE
- #107Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 48 9D 5B 5A 77 9E 5B 5A
- 5B 77 9F 5B 5A 5B 5B 77 A0 5B 5A 5B 5B 5B 1B 36 C5 14 A1 5B 78 37
- 01 71 90 DB AB DC DD B2 B1 A4 20 2D DF DE B5 60 02 14 7A 02 7A 05
- 7A 02 7A 01 E0 B2 E1 AF 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 09 AC
- 2E 01 19 03 A0 5B 5A 5B 5B 5B 5A 1A 42 DE B4 2E 07 1A 52
- )
- 2. SYSTEM::MACRO-CALL-ERROR 0. LET FFI::FOREIGN-ADDRESS-VARIABLE
- "unnamed" QUOTE FFI::PARSE-C-TYPE SYMBOL-MACROLET FFI::FOREIGN-VALUE
- ) )
- #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST8 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST8
- #53Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0C 54 19 02 DB AD DC DD 6D 04 06 AA DF 6F 08 6E 09 AB E2 6F 08 6E 09
- 2F 0B 16 01 53 1A 5E
- )
- 0. ALLOCASLREQUEST ASLREQUEST "unnamed" 4.
- #(C-STRUCT #(FILE DRAWER)
- #Y(:LAMBDA
- #22Y(00 02 00 00 00 03 62 6E 00 AA D9 AF 31 3F AA DA AE 31 3F 15 19
- 03
- )
- CLOS:MAKE-INSTANCE FILE DRAWER
- )
- C-STRING C-STRING
- )
- FFI::FOREIGN-ADDRESS-VARIABLE DRAWER FFI::%SLOT FFI::FOREIGN-VALUE FILE
- ADDPART2 FREEASLREQUEST
- ) )
- #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
- ASLFILEREQUEST9 SYSTEM::REMOVE-OLD-DEFINITIONS
- #Y(ASLFILEREQUEST9
- #55Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
- 0D 54 19 02 DB AD DC DD 6E 06 6D 04 07 AA E0 6F 09 6E 0A AB E3 6F 09
- 6E 0A 2F 0C 16 01 53 1A 5C
- )
- 0. ALLOCASLREQUEST ASLREQUEST "unnamed" 4. FR-FILE-DRAWER
- FFI::PARSE-C-TYPE FFI::FOREIGN-ADDRESS-VARIABLE DRAWER FFI::%SLOT
- FFI::FOREIGN-VALUE FILE ADDPART2 FREEASLREQUEST
- ) )
-