clisp-module-zlib 1:2.49-9ubuntu1 / usr / lib / clisp-2.49 / zlib / zlib.fas

This file is indexed.

/usr/lib/clisp-2.49/zlib/zlib.fas is in clisp-module-zlib 1:2.49-9ubuntu1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 9 (DEFPACKAGE "ZLIB" (:USE "CL" "EXT" ...))-1-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 01 04 31 F0 3E 19 01) ("ZLIB")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 9 (DEFPACKAGE "ZLIB" (:USE "CL" "EXT" ...))-1-2|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA DB 31 EC 3E 19 01)
   (("COMMON-LISP" "EXT" "FFI") "ZLIB")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 9 (DEFPACKAGE "ZLIB" (:USE "CL" "EXT" ...))-1-3|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 D9 19 01) ("ZLIB")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
#Y(#:|10 10 (IN-PACKAGE "ZLIB")-2|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
   ("ZLIB" |COMMON-LISP|::|*PACKAGE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|11 12 (EXPORT '(COMPRESS UNCOMPRESS COMPRESS-BOUND ...))-3|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 19 01)
   ((|ZLIB|::|COMPRESS| |ZLIB|::|UNCOMPRESS| |ZLIB|::|COMPRESS-BOUND|
     |ZLIB|::|ERROR-STRING| |ZLIB|::|Z-VERSION| |ZLIB|::|ZERROR|
     |ZLIB|::|ZERROR-CALLER| |ZLIB|::|ZERROR-ERRNO|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|13 13 (SETF (DOCUMENTATION # 'SYSTEM::IMPNOTES) "zlib")-4|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA 71 D9 DB AD DC 2D 03 03 19 02)
   ("ZLIB" "zlib" |SYSTEM|::|IMPNOTES|
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|CLOS|::|DOCUMENTATION|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|15 18 (DEFAULT-FOREIGN-LANGUAGE :STDC)-5|
   #36Y(03 00 01 00 00 00 00 00 20 01 DA DB 38 05 72 6B 53 08 63 AF 30 02 C8 0F
        04 54 64 67 00 00 00 30 02 55 19 02)
   (#.#'|EXT|::|PACKAGE-LOCK| ("FFI")
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|EXT|::|PACKAGE-LOCK|) :|STDC|
    |FFI|::|*FOREIGN-LANGUAGE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|22 23 (DEF-CALL-OUT Z-VERSION (:NAME "zlibVersion") ...)-7|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 70 03 63 6B 04 01 02 6E 06 05 93
        00 07 E0 2F 07 E0 AD 32 9C CB 19 02)
   (#1="zlibVersion"
    #2=((:|NAME| #1#) (:|ARGUMENTS|) (:|RETURN-TYPE| |FFI|::|C-STRING|))
    (|FFI|::|DEF-CALL-OUT| |ZLIB|::|Z-VERSION| . #2#) |FFI|::|PARSE-C-FUNCTION|
    |FFI|::|*FOREIGN-LIBRARY*| |FFI|::|FIND-FOREIGN-FUNCTION|
    |ZLIB|::|Z-VERSION| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|25 26 (DEF-CALL-OUT COMPRESS-BOUND (:NAME "compressBound") ...)-8|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 70 03 63 6B 04 01 02 6E 06 05 93
        00 07 E0 2F 07 E0 AD 32 9C CB 19 02)
   (#1="compressBound"
    #2=((:|NAME| #1#) (:|ARGUMENTS| (|ZLIB|::|SOURCELEN| |FFI|::|ULONG|))
        (:|RETURN-TYPE| |FFI|::|ULONG|))
    (|FFI|::|DEF-CALL-OUT| |ZLIB|::|COMPRESS-BOUND| . #2#)
    |FFI|::|PARSE-C-FUNCTION| |FFI|::|*FOREIGN-LIBRARY*|
    |FFI|::|FIND-FOREIGN-FUNCTION| |ZLIB|::|COMPRESS-BOUND|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|28 29 (DEF-CALL-OUT ERROR-STRING (:NAME "zError") ...)-9|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 70 03 63 6B 04 01 02 6E 06 05 93
        00 07 E0 2F 07 E0 AD 32 9C CB 19 02)
   (#1="zError"
    #2=((:|NAME| #1#) (:|ARGUMENTS| (|ZLIB|::|ERRNO| |FFI|::|INT|))
        (:|RETURN-TYPE| |FFI|::|C-STRING|))
    (|FFI|::|DEF-CALL-OUT| |ZLIB|::|ERROR-STRING| . #2#)
    |FFI|::|PARSE-C-FUNCTION| |FFI|::|*FOREIGN-LIBRARY*|
    |FFI|::|FIND-FOREIGN-FUNCTION| |ZLIB|::|ERROR-STRING|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|31 37 (DEF-CALL-OUT %COMPRESS (:NAME "compress2") ...)-10|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 70 03 63 6B 04 01 02 6E 06 05 93
        00 07 E0 2F 07 E0 AD 32 9C CB 19 02)
   (#1="compress2"
    #2=((:|NAME| #1#)
        (:|ARGUMENTS| (|ZLIB|::|DEST| |FFI|::|C-POINTER| :|IN|)
         (|ZLIB|::|DESTLEN| (|FFI|::|C-PTR| |FFI|::|ULONG|) :|IN-OUT|)
         (|ZLIB|::|SOURCE| (|FFI|::|C-ARRAY-PTR| |FFI|::|UINT8|))
         (|ZLIB|::|SOURCELEN| |FFI|::|ULONG|) (|ZLIB|::|LEVEL| |FFI|::|INT|))
        (:|RETURN-TYPE| |FFI|::|INT|))
    (|FFI|::|DEF-CALL-OUT| |ZLIB|::|%COMPRESS| . #2#) |FFI|::|PARSE-C-FUNCTION|
    |FFI|::|*FOREIGN-LIBRARY*| |FFI|::|FIND-FOREIGN-FUNCTION|
    |ZLIB|::|%COMPRESS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|39 44 (DEF-CALL-OUT %UNCOMPRESS (:NAME "uncompress") ...)-11|
   #36Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 70 03 63 6B 04 01 02 6E 06 05 93
        00 07 E0 2F 07 E0 AD 32 9C CB 19 02)
   (#1="uncompress"
    #2=((:|NAME| #1#)
        (:|ARGUMENTS| (|ZLIB|::|DEST| |FFI|::|C-POINTER| :|IN|)
         (|ZLIB|::|DESTLEN| (|FFI|::|C-PTR| |FFI|::|ULONG|) :|IN-OUT|)
         (|ZLIB|::|SOURCE| (|FFI|::|C-ARRAY-PTR| |FFI|::|UINT8|))
         (|ZLIB|::|SOURCELEN| |FFI|::|ULONG|))
        (:|RETURN-TYPE| |FFI|::|INT|))
    (|FFI|::|DEF-CALL-OUT| |ZLIB|::|%UNCOMPRESS| . #2#)
    |FFI|::|PARSE-C-FUNCTION| |FFI|::|*FOREIGN-LIBRARY*|
    |FFI|::|FIND-FOREIGN-FUNCTION| |ZLIB|::|%UNCOMPRESS|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-1|
   #68Y(00 00 00 00 00 00 00 00 20 01 6B 00 99 01 DC DD DE 7B 01 DF E0 E1 E2 E3
        E4 E5 E6 E7 7B 08 E0 E8 E2 E9 E4 EA E6 EB 7B 08 7B 02 EC B3 ED EE EF F0
        63 F1 64 7B 04 33 02 23 37 09 16 01 DC 38 02 32 3A 3E 19 01)
   (|CLOS|::|<STANDARD-CLASS>| |CLOS|::|ENSURE-CLASS| |ZLIB|::|ZERROR|
    :|DIRECT-SUPERCLASSES| |COMMON-LISP|::|ERROR| :|DIRECT-SLOTS| :|NAME|
    |ZLIB|::|$ERRNO| :|READERS| (|ZLIB|::|ZERROR-ERRNO|) :|INITARGS| (:|ERRNO|)
    :|TYPE| |COMMON-LISP|::|INTEGER| |ZLIB|::|$CALLER|
    (|ZLIB|::|ZERROR-CALLER|) (:|CALLER|)
    (|COMMON-LISP|::|OR| |COMMON-LISP|::|SYMBOL|
     (|COMMON-LISP|::|CONS| (|COMMON-LISP|::|EQL| |COMMON-LISP|::|SETF|)
      (|COMMON-LISP|::|CONS| |COMMON-LISP|::|SYMBOL| |COMMON-LISP|::|NULL|)))
    :|METACLASS| :|DOCUMENTATION| "an error in a ZLIB library call"
    (:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|) :|DIRECT-DEFAULT-INITARGS|
    :|GENERIC-ACCESSORS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-2|
   #49Y(00 00 00 00 00 00 00 00 20 01 DA DB 38 01 8F 9E 03 DA 2F 02 DA DD DE 63
        DF E0 E1 E2 E3 E4 38 02 72 3A 64 38 02 72 3A 7B 02 7B 08 2D 03 0B 3E 19
        01)
   (|CLOS|::|PRINT-OBJECT| |SYSTEM|::|TRACED-DEFINITION| |SYSTEM|::|UNTRACE1|
    #Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-2-1|
       #25Y(00 00 00 00 01 00 00 00 20 02 00 2B 01 7F 02 00 00 AC 6D 00 01 C6
            5D 19 03)
       (#Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-2-1-1|
           #58Y(00 00 00 00 03 00 00 00 20 04 0E 01 1C 1F 0E 02 1C 1B AE 6F 04
                AE DF B1 6F 06 AF B0 6F 07 2D 05 08 16 01 9F 19 04 14 AF AF 36
                02 19 04 92 03 76 69 00 01 AF AF 2D 03 03 19 04)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|*PRINT-ESCAPE*|
            |COMMON-LISP|::|*PRINT-READABLY*| |CLOS|::|%NO-NEXT-METHOD|
            |ZLIB|::|ZERROR-ERRNO|
            #Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-2-1-1-1|
               #47Y(00 00 00 00 04 00 00 00 21 1A B1 2F 00 10 01 B3 B5 31 8D 11
                    B1 2F 02 DD B2 31 94 B1 01 06 B6 2D 08 04 DF B2 38 02 31 95
                    AE B2 31 90 9E 19 06)
               (|SYSTEM|::|STREAM-START-S-EXPRESSION|
                |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
                |SYSTEM|::|STREAM-END-S-EXPRESSION| #\/
                |SYSTEM|::|DO-FORMAT-DECIMAL| ": ")
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
            |ZLIB|::|ZERROR-CALLER| |ZLIB|::|ERROR-STRING|
            |COMMON-LISP|::|FORMAT|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        (|COMMON-LISP|::|NIL|))
       (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    :|QUALIFIERS| :|LAMBDA-LIST|
    (|COMMON-LISP|::|CONDITION| |COMMON-LISP|::|STREAM|) |CLOS|::|SIGNATURE|
    #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
      |COMMON-LISP|::|NIL|)
    :|SPECIALIZERS| |ZLIB|::|ZERROR| |CLOS|::|DO-DEFMETHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|46 55 (DEFINE-CONDITION ZERROR (ERROR) ...)-12-3|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01) (|ZLIB|::|ZERROR|)
   |COMMON-LISP|::|NIL|)
#Y(#:|57 68 (DEFUN COMPRESS (SOURCE &KEY #) ...)-13|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|ZLIB|::|COMPRESS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|ZLIB|::|COMPRESS|
       #81Y(00 00 00 00 01 00 00 00 A6 1C 01 00 00 00 00 2B 02 7F 03 00 00 3B
            02 01 C6 0B 00 01 9D 2B 02 68 01 00 32 62 0B 00 00 14 2F 02 0B 00
            01 AC 6D 03 01 DE DF 06 03 01 43 14 AC E0 8B 07 0A 87 00 00 73 03
            00 30 0C 19 05 E2 E3 6F 0A E5 AF E0 33 03 1F)
       (:|LEVEL| -1. |ZLIB|::|COMPRESS-BOUND|
        #Y(|ZLIB|::|COMPRESS-1|
           #77Y(00 00 00 00 01 00 00 00 20 02 AD 6F 01 69 00 02 69 01 01 69 00
                01 69 01 02 2D 05 02 42 02 AD 8F AC 23 AF DD DE DF A1 43 14 AC
                E0 8B 07 0D 87 00 00 73 03 00 6E 03 0C 2F 0D 19 04 E2 E3 6F 0A
                E5 AF E0 33 03 1F E8 E9 EA EB B1 33 04 1E)
           (|COMMON-LISP|::|NIL| |FFI|::|FOREIGN-ADDRESS| |ZLIB|::|%COMPRESS|
            0. |FFI|::|C-ARRAY| |FFI|::|UINT8| |COMMON-LISP|::|UNSIGNED-BYTE|
            |SYSTEM|::|%THE| |COMMON-LISP|::|ERROR|
            #1="The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@\n
                       that's not of type ~S."
            |SYSTEM|::|TEXT| |ZLIB|::|ACTUAL| |FFI|::|%OFFSET|
            |FFI|::|FOREIGN-VALUE| |ZLIB|::|ZERROR| :|CALLER|
            |ZLIB|::|COMPRESS| :|ERRNO|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |FFI|::|C-ARRAY| |FFI|::|UINT8| |COMMON-LISP|::|UNSIGNED-BYTE|
        |SYSTEM|::|%THE| |COMMON-LISP|::|ERROR| #1# |SYSTEM|::|TEXT|
        |ZLIB|::|DESTLEN| |FFI|::|EXEC-ON-STACK|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|ZLIB|::|SOURCE| |COMMON-LISP|::|&KEY| (|ZLIB|::|LEVEL| -1.))
       "Compress the byte vector SOURCE into a new byte vector." 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|70 79 (DEFUN UNCOMPRESS (SOURCE DESTLEN) ...)-14|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|ZLIB|::|UNCOMPRESS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|ZLIB|::|UNCOMPRESS|
       #68Y(00 00 00 00 02 00 00 00 26 03 00 2B 02 7F 03 00 00 7F 02 00 01 9D
            2B 01 68 01 00 32 62 0B 00 00 AC 6D 00 01 DB DC 06 04 01 43 14 AC
            DD 8B 04 0A 87 00 00 73 03 00 30 09 19 05 DF E0 6F 07 E2 AF DD 33
            03 1F)
       (#Y(|ZLIB|::|UNCOMPRESS-1|
           #74Y(00 00 00 00 01 00 00 00 20 02 AD 6F 01 69 01 02 69 01 01 69 00
                01 2D 04 02 42 02 AD 8F AC 23 AF DD DE DF A1 43 14 AC E0 8B 07
                0D 87 00 00 73 03 00 6E 03 0C 2F 0D 19 04 E2 E3 6F 0A E5 AF E0
                33 03 1F E8 E9 EA EB B1 33 04 1E)
           (|COMMON-LISP|::|NIL| |FFI|::|FOREIGN-ADDRESS| |ZLIB|::|%UNCOMPRESS|
            0. |FFI|::|C-ARRAY| |FFI|::|UINT8| |COMMON-LISP|::|UNSIGNED-BYTE|
            |SYSTEM|::|%THE| |COMMON-LISP|::|ERROR|
            #1="The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@\n
                       that's not of type ~S."
            |SYSTEM|::|TEXT| |ZLIB|::|ACTUAL| |FFI|::|%OFFSET|
            |FFI|::|FOREIGN-VALUE| |ZLIB|::|ZERROR| :|CALLER|
            |ZLIB|::|UNCOMPRESS| :|ERRNO|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |FFI|::|C-ARRAY| |FFI|::|UINT8| |COMMON-LISP|::|UNSIGNED-BYTE|
        |SYSTEM|::|%THE| |COMMON-LISP|::|ERROR| #1# |SYSTEM|::|TEXT|
        |ZLIB|::|DESTLEN| |FFI|::|EXEC-ON-STACK|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|ZLIB|::|SOURCE| |ZLIB|::|DESTLEN|)
       "Uncompress the byte vector SOURCE into a new byte vector of length DESTLEN."
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|81 81 (PUSHNEW :ZLIB *FEATURES*)-15|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA 6B 01 38 03 31 C5 0F 01 19 01)
   (:|ZLIB| |COMMON-LISP|::|*FEATURES*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|82 82 (PROVIDE "zlib")-16|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 19 01)
   ("zlib" |COMMON-LISP|::|PROVIDE|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|83 83 (PUSHNEW "ZLIB" *SYSTEM-PACKAGE-LIST* ...)-17|
   #22Y(00 00 00 00 00 00 00 00 20 01 DA 6B 01 DC 38 02 31 C5 0F 01 19 01)
   ("ZLIB" |CUSTOM|::|*SYSTEM-PACKAGE-LIST*| #.#'|COMMON-LISP|::|STRING=|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))

APT Browse - Built by Thomas Orozco.