home *** CD-ROM | disk | FTP | other *** search
- (in-package "AFFI")
- (declare-library-base :ASLBASE "asl.library")
-
- (defflibfun 'ALLOCFILEREQUEST 'ASLBASE -30 #x0 '*)
- (defflibfun 'FREEFILEREQUEST 'ASLBASE -36 #x9 () :external)
- (defflibfun 'REQUESTFILE 'ASLBASE -42 #x9 0 :external)
- (defflibfun 'ALLOCASLREQUEST 'ASLBASE -48 #x91 '* 4 '*)
- (defflibfun 'FREEASLREQUEST 'ASLBASE -54 #x9 () :external)
- (defflibfun 'ASLREQUEST 'ASLBASE -60 #xA9 0 :external '*)
-
- (provide "asl.library")
-