clisp-module-gdbm 1:2.49.20170913-4build1 / usr / lib / clisp-2.49.60+ / gdbm / gdbm.fas

This file is indexed.

/usr/lib/clisp-2.49.60+/gdbm/gdbm.fas is in clisp-module-gdbm 1:2.49.20170913-4build1.

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
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
(|SYSTEM|::|VERSION| '(20100807.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 17 (DEFPACKAGE #:GDBM (:DOCUMENTATION "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>") ...)-1-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 01 04 31 F0 3E 19 01) ("GDBM")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 17 (DEFPACKAGE #:GDBM (:DOCUMENTATION "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>") ...)-1-2|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA DB 31 EC 3E 19 01)
   (("COMMON-LISP") "GDBM")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 17 (DEFPACKAGE #:GDBM (:DOCUMENTATION "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>") ...)-1-3|
   #19Y(00 00 00 00 00 00 00 00 20 01 DA DB 63 2D 03 02 3E 19 01)
   (("GDBM" "GDBM-P" "GDBM-ERROR" "GDBM-VERSION" "GDBM-PATH"
     "GDBM-DEFAULT-KEY-TYPE" "GDBM-DEFAULT-VALUE-TYPE" "GDBM-ERROR-MESSAGE"
     "GDBM-ERROR-CODE" "GDBM-OPEN" "GDBM-OPEN-P" "GDBM-CLOSE" "DO-DB"
     "WITH-OPEN-DB" "GDBM-STORE" "GDBM-FETCH" "GDBM-DELETE" "GDBM-EXISTS"
     "GDBM-FIRSTKEY" "GDBM-NEXTKEY" "GDBM-FILE-SIZE" "GDBM-REORGANIZE"
     "GDBM-SYNC" "GDBM-SETOPT")
    "GDBM" |SYSTEM|::|INTERN-EXPORT|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 17 (DEFPACKAGE #:GDBM (:DOCUMENTATION "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>") ...)-1-4|
   #22Y(00 00 00 00 00 00 00 00 20 01 DA 71 D9 DB AD 30 02 16 01 3E 19 01)
   ("GDBM"
    "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>"
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|SYSTEM|::|PACKAGE-DOCUMENTATION|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1 17 (DEFPACKAGE #:GDBM (:DOCUMENTATION "GDBM - The GNU database manager - <http://www.gnu.org/software/gdbm/>") ...)-1-5|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 D9 19 01) ("GDBM")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
#Y(#:|18 18 (IN-PACKAGE "GDBM")-2|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
   ("GDBM" |COMMON-LISP|::|*PACKAGE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|20 20 (PUSHNEW :GDBM *FEATURES*)-3|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA 6B 01 38 03 31 C5 0F 01 19 01)
   (:|GDBM| |COMMON-LISP|::|*FEATURES*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|21 21 (PROVIDE "gdbm")-4|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 19 01)
   ("gdbm" |COMMON-LISP|::|PROVIDE|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|22 22 (PUSHNEW "GDBM" CUSTOM:*SYSTEM-PACKAGE-LIST* ...)-5|
   #22Y(00 00 00 00 00 00 00 00 20 01 DA 6B 01 DC 38 02 31 C5 0F 01 19 01)
   ("GDBM" |CUSTOM|::|*SYSTEM-PACKAGE-LIST*| #.#'|COMMON-LISP|::|STRING=|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|23 23 (SETF (DOCUMENTATION # 'SYSTEM::IMPNOTES) "gdbm")-6|
   #21Y(00 00 00 00 00 00 00 00 20 01 DA 71 D9 DB AD DC 2D 03 03 19 02)
   ("GDBM" "gdbm" |SYSTEM|::|IMPNOTES|
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|CLOS|::|DOCUMENTATION|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|25 30 (DEFSTRUCT (GDBM #) DBF ...)-7|
   #611Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
         0B 00 00 DA 2F 04 DA DF 32 A3 DA 68 01 00 63 E0 E1 E2 6B 09 E4 E5 E6
         E7 E8 64 E9 EA EB 01 02 6F 12 70 13 EE EF F0 F1 F2 63 6E 11 19 6B 09
         E4 F4 E6 F5 E8 64 E9 EA EB 01 02 6F 12 70 13 EE F6 F0 F7 F2 63 6E 11
         19 6B 09 E4 65 1E E6 65 1F E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 20
         F0 65 21 F2 63 6E 11 19 6B 09 E4 65 22 E6 65 23 E8 64 E9 EA EB 01 02
         6F 12 70 13 EE 65 24 F0 65 25 F2 63 6E 11 19 7B 04 6B 26 E4 E5 E6 E7
         E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 27 65 28 65 29 65 2A 65 2B 6E
         11 2C 6B 26 E4 F4 E6 F5 E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 2D 65
         28 65 2E 65 2A 65 2F 6E 11 2C 6B 26 E4 65 1E E6 65 1F E8 64 E9 EA EB
         01 02 6F 12 70 13 EE 65 30 65 28 65 31 65 2A 65 32 6E 11 2C 6B 26 E4
         65 22 E6 65 23 E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 33 65 28 65 34
         65 2A 65 35 6E 11 2C 7B 04 63 2D 09 36 65 37 2F 38 65 37 AD 6D 39 01
         32 9C 16 01 65 3A 31 62 E2 2F 38 E2 65 3B 65 3C 32 A2 E2 65 3D 32 9C
         65 3E 31 62 E1 2F 38 E1 65 3B 65 3F 32 A2 E1 65 40 32 9C 65 41 31 62
         65 42 31 62 65 43 2F 38 65 43 65 3B 65 44 32 A2 65 43 65 45 32 9C 65
         43 65 46 DA 32 A2 65 47 31 62 65 48 31 62 65 49 2F 38 65 49 65 3B 65
         4A 32 A2 65 49 65 4B 32 9C 65 49 65 46 DA 32 A2 65 4C 31 62 65 4D 31
         62 65 4E 2F 38 65 4E 65 3B 65 4F 32 A2 65 4E 65 50 32 9C 65 4E 65 46
         DA 32 A2 65 51 31 62 65 52 31 62 65 53 2F 38 65 53 65 3B 65 54 32 A2
         65 53 65 55 32 9C 65 53 65 46 DA 32 A2 65 56 31 62 65 57 31 62 65 58
         2F 38 65 58 65 3B 65 59 32 A2 65 58 65 5A 32 9C 65 43 65 5B DA 32 A2
         65 5C 31 62 65 5D 31 62 65 5E 2F 38 65 5E 65 3B 65 5F 32 A2 65 5E 65
         60 32 9C 65 49 65 5B DA 32 A2 65 61 31 62 65 62 31 62 65 63 2F 38 65
         63 65 3B 65 64 32 A2 65 63 65 65 32 9C 65 4E 65 5B DA 32 A2 65 66 31
         62 65 67 31 62 65 68 2F 38 65 68 65 3B 65 69 32 A2 65 68 65 6A 32 9C
         65 53 65 5B DA 32 A2 DA 2F 6B C5 19 01)
   (|GDBM|::|GDBM| |COMMON-LISP|::|STRUCTURE-OBJECT| |CLOS|::|CLOSCLASS|
    |CLOS|::|CLASS-NAMES| |SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
    |SYSTEM|::|DEFSTRUCT-DESCRIPTION| (|GDBM|::|MAKE-GDBM|) |GDBM|::|COPY-GDBM|
    |GDBM|::|GDBM-P| |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
    |GDBM|::|DBF| :|INITARGS| (:|DBF|) :|TYPE| :|ALLOCATION| :|INSTANCE|
    |CLOS|::|INHERITABLE-INITER| |SYSTEM|::|MAKE-CONSTANT-INITFUNCTION|
    |CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
    (|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
    |GDBM|::|PATH| (:|PATH|) (|COMMON-LISP|::|NIL|) 2. |GDBM|::|KEY-TYPE|
    (:|KEY-TYPE|) (|COMMON-LISP|::|NIL|) 3. |GDBM|::|VALUE-TYPE|
    (:|VALUE-TYPE|) (|COMMON-LISP|::|NIL|) 4.
    |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| (|COMMON-LISP|::|NIL|)
    :|READERS| (|GDBM|::|GDBM-DBF|) :|WRITERS|
    ((|COMMON-LISP|::|SETF| |GDBM|::|GDBM-DBF|))
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
    (|COMMON-LISP|::|NIL|) (|GDBM|::|GDBM-PATH|)
    ((|COMMON-LISP|::|SETF| |GDBM|::|GDBM-PATH|)) (|COMMON-LISP|::|NIL|)
    (|GDBM|::|GDBM-KEY-TYPE|) ((|COMMON-LISP|::|SETF| |GDBM|::|GDBM-KEY-TYPE|))
    (|COMMON-LISP|::|NIL|) (|GDBM|::|GDBM-VALUE-TYPE|)
    ((|COMMON-LISP|::|SETF| |GDBM|::|GDBM-VALUE-TYPE|))
    |CLOS|::|DEFINE-STRUCTURE-CLASS| |GDBM|::|MAKE-GDBM|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|GDBM|::|MAKE-GDBM|
       #43Y(00 00 00 00 04 00 00 00 26 05 69 00 01 DB 72 45 DC AD DD B4 32 44
            DC AD DE B3 32 44 DC AD DF B2 32 44 DC AD E0 B1 32 44 15 19 05)
       (|COMMON-LISP|::|NIL| 5. |GDBM|::|GDBM| 1. 2. 3. 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|GDBM|::|DBF| |GDBM|::|PATH| |GDBM|::|KEY-TYPE| |GDBM|::|VALUE-TYPE|
        |COMMON-LISP|::|&AUX|)
       |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|INLINE| |GDBM|::|GDBM-P|) |SYSTEM|::|INLINE-EXPANSION|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |GDBM|::|GDBM-P|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-P|
      (|SYSTEM|::|%STRUCTURE-TYPE-P| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT|)))
    #Y(|GDBM|::|GDBM-P| #16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
       (|GDBM|::|GDBM|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|INLINE| |GDBM|::|COPY-GDBM|)
    ((|COMMON-LISP|::|STRUCTURE|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |GDBM|::|COPY-GDBM|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|COPY-GDBM|
      (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|)))
    #Y(|GDBM|::|COPY-GDBM| #15Y(00 00 00 00 01 00 00 00 26 02 AD 32 46 19 02)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|COMMON-LISP|::|STRUCTURE|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|FUNCTION| |GDBM|::|GDBM-DBF| (|GDBM|::|GDBM|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |GDBM|::|GDBM-DBF|) |GDBM|::|GDBM-DBF|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |GDBM|::|GDBM-DBF|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-DBF|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 1.))))
    #Y(|GDBM|::|GDBM-DBF|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|GDBM|::|GDBM| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    |SYSTEM|::|DEFSTRUCT-READER|
    (|COMMON-LISP|::|FUNCTION| |GDBM|::|GDBM-PATH| (|GDBM|::|GDBM|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |GDBM|::|GDBM-PATH|) |GDBM|::|GDBM-PATH|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |GDBM|::|GDBM-PATH|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-PATH|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 2.))))
    #Y(|GDBM|::|GDBM-PATH|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|GDBM|::|GDBM| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| |GDBM|::|GDBM-KEY-TYPE| (|GDBM|::|GDBM|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |GDBM|::|GDBM-KEY-TYPE|) |GDBM|::|GDBM-KEY-TYPE|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |GDBM|::|GDBM-KEY-TYPE|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-KEY-TYPE|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 3.))))
    #Y(|GDBM|::|GDBM-KEY-TYPE|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|GDBM|::|GDBM| 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| |GDBM|::|GDBM-VALUE-TYPE| (|GDBM|::|GDBM|)
     |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |GDBM|::|GDBM-VALUE-TYPE|)
    |GDBM|::|GDBM-VALUE-TYPE|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| |GDBM|::|GDBM-VALUE-TYPE|))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-VALUE-TYPE|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 4.))))
    #Y(|GDBM|::|GDBM-VALUE-TYPE|
       #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|GDBM|::|GDBM| 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-DBF|)
     (|COMMON-LISP|::|T| |GDBM|::|GDBM|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-DBF|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|GDBM|::|GDBM-DBF|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| #1=(|COMMON-LISP|::|SETF| |GDBM|::|GDBM-DBF|)))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-DBF|
      (|SYSTEM|::|%STRUCTURE-STORE| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 1.
       |SYSTEM|::|VALUE|)))
    #Y(#1# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|GDBM|::|GDBM| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |SYSTEM|::|DEFSTRUCT-WRITER|
    (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-PATH|)
     (|COMMON-LISP|::|T| |GDBM|::|GDBM|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-PATH|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|GDBM|::|GDBM-PATH|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| #2=(|COMMON-LISP|::|SETF| |GDBM|::|GDBM-PATH|)))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-PATH|
      (|SYSTEM|::|%STRUCTURE-STORE| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 2.
       |SYSTEM|::|VALUE|)))
    #Y(#2# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|GDBM|::|GDBM| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-KEY-TYPE|)
     (|COMMON-LISP|::|T| |GDBM|::|GDBM|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-KEY-TYPE|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|GDBM|::|GDBM-KEY-TYPE|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #3=(|COMMON-LISP|::|SETF| |GDBM|::|GDBM-KEY-TYPE|)))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-KEY-TYPE|
      (|SYSTEM|::|%STRUCTURE-STORE| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 3.
       |SYSTEM|::|VALUE|)))
    #Y(#3# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|GDBM|::|GDBM| 3.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    (|COMMON-LISP|::|FUNCTION|
     (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-VALUE-TYPE|)
     (|COMMON-LISP|::|T| |GDBM|::|GDBM|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |GDBM|::|GDBM-VALUE-TYPE|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|GDBM|::|GDBM-VALUE-TYPE|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN|
       #4=(|COMMON-LISP|::|SETF| |GDBM|::|GDBM-VALUE-TYPE|)))
     (|COMMON-LISP|::|BLOCK| |GDBM|::|GDBM-VALUE-TYPE|
      (|SYSTEM|::|%STRUCTURE-STORE| '|GDBM|::|GDBM| |SYSTEM|::|OBJECT| 4.
       |SYSTEM|::|VALUE|)))
    #Y(#4# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|GDBM|::|GDBM| 4.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|32 32 (DEFUN GDBM-OPEN-P (GDBM) ...)-8|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|GDBM|::|GDBM-OPEN-P| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|GDBM|::|GDBM-OPEN-P|
       #19Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 32 43 59 59 19 02)
       (|GDBM|::|GDBM| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|GDBM|::|GDBM|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|34 38 (DEFINE-CONDITION GDBM-ERROR (SIMPLE-ERROR) ...)-9-1|
   #64Y(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 7B 06 E0 E6 E2 E7 E4 E8 7B 06 7B 02 E9 B3 EA EB 63 EC 63 ED 64 7B
        06 33 02 23 37 07 16 01 DC 38 02 32 3A 3E 19 01)
   (|CLOS|::|<STANDARD-CLASS>| |CLOS|::|ENSURE-CLASS| |GDBM|::|GDBM-ERROR|
    :|DIRECT-SUPERCLASSES| |COMMON-LISP|::|SIMPLE-ERROR| :|DIRECT-SLOTS|
    :|NAME| |GDBM|::|CODE| :|READERS| (|GDBM|::|GDBM-ERROR-CODE|) :|INITARGS|
    (:|CODE|) |GDBM|::|MESSAGE| (|GDBM|::|GDBM-ERROR-MESSAGE|) (:|MESSAGE|)
    :|METACLASS| (:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
    :|DIRECT-DEFAULT-INITARGS| :|DOCUMENTATION| :|GENERIC-ACCESSORS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|34 38 (DEFINE-CONDITION GDBM-ERROR (SIMPLE-ERROR) ...)-9-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(#:|34 38 (DEFINE-CONDITION GDBM-ERROR (SIMPLE-ERROR) ...)-9-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(#:|34 38 (DEFINE-CONDITION GDBM-ERROR (SIMPLE-ERROR) ...)-9-2-1-1|
           #47Y(00 00 00 00 03 00 00 00 20 04 0E 01 1C 14 0E 02 1C 10 AE 6F 04
                AE 31 90 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|
            |GDBM|::|GDBM-ERROR-MESSAGE|)
           (|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| |GDBM|::|GDBM-ERROR| |CLOS|::|DO-DEFMETHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|34 38 (DEFINE-CONDITION GDBM-ERROR (SIMPLE-ERROR) ...)-9-3|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01) (|GDBM|::|GDBM-ERROR|)
   |COMMON-LISP|::|NIL|)
#Y(#:|40 46 (DEFMACRO DO-DB (# &BODY BODY) ...)-10|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|GDBM|::|DO-DB| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|GDBM|::|DO-DB|
       #106Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 43 9F 5C
             78 AC DA DA 64 2D 04 01 1D 3C AC 94 00 9E 5C 78 9F 5C 79 A4 5C 79
             E4 72 AA E5 E6 AE E7 B3 E8 B6 E7 E9 B5 A9 5D 7A EA EB B7 BC 04 0F
             5D 5D 7A EC BC AB 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 19 0A AE
             2F 02 19 03 DD DE B1 DF B0 E0 6F 07 E2 B3 E3 33 07 1F)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |EXT|::|SOURCE-PROGRAM-ERROR| :|FORM| :|DETAIL|
        "~S: ~S does not match lambda list element ~:S" |SYSTEM|::|TEXT|
        |GDBM|::|DO-DB|
        #1=(|GDBM|::|KEY-VAR| |GDBM|::|GDBM| |COMMON-LISP|::|&REST|
            |GDBM|::|OPTIONS|)
        "DO-DB" |COMMON-LISP|::|LOOP| :|WITH| |COMMON-LISP|::|=| :|FOR|
        |GDBM|::|GDBM-FIRSTKEY| :|THEN| |GDBM|::|GDBM-NEXTKEY| :|WHILE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
       "Iterate over the GDBM keys in LOOP." 1)
    (#1# |COMMON-LISP|::|&BODY| |GDBM|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|48 55 (DEFMACRO WITH-OPEN-DB (# &BODY BODY) ...)-11|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|GDBM|::|WITH-OPEN-DB| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|GDBM|::|WITH-OPEN-DB|
       #119Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 80 50 9F 5C
             78 AC DA DA 64 2D 04 01 1D 80 48 AC 94 00 9E 5C 78 9F 5C 79 A4 5C
             79 AC 38 01 31 69 42 02 E4 B2 E5 B3 A4 5D 7A 7B 02 7B 01 E6 E7 B5
             7B 02 A1 5D 7A E8 E9 EA A4 7A EB B8 EC BA 7B 02 7B 03 7B 03 EB B7
             EC B9 7B 02 7B 03 7B 03 61 04 19 0B AE 2F 02 19 03 DD DE B1 DF B0
             E0 6F 07 E2 B3 E3 33 07 1F)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |EXT|::|SOURCE-PROGRAM-ERROR| :|FORM| :|DETAIL|
        "~S: ~S does not match lambda list element ~:S" |SYSTEM|::|TEXT|
        |GDBM|::|WITH-OPEN-DB|
        #1=(|GDBM|::|DB| |GDBM|::|FILENAME| |COMMON-LISP|::|&REST|
            |GDBM|::|OPTIONS|)
        |COMMON-LISP|::|LET| |GDBM|::|GDBM-OPEN| |COMMON-LISP|::|DECLARE|
        |GDBM|::|READ-ONLY| |COMMON-LISP|::|UNWIND-PROTECT|
        |COMMON-LISP|::|MULTIPLE-VALUE-PROG1| |COMMON-LISP|::|PROGN|
        |COMMON-LISP|::|WHEN| |GDBM|::|GDBM-CLOSE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|)
       "Open a GDBM database, execute BODY, ensure that the DB is closed." 1)
    (#1# |COMMON-LISP|::|&BODY| |GDBM|::|BODY|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))

APT Browse - Built by Thomas Orozco.