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

This file is indexed.

/usr/lib/clisp-2.49/postgresql/sql.fas is in clisp-module-postgresql 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
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
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 8 (REQUIRE "postgresql")-1|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 19 01)
   ("postgresql" |COMMON-LISP|::|REQUIRE|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|10 10 (IN-PACKAGE "SQL")-2|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
   ("SQL" |COMMON-LISP|::|*PACKAGE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|12 16 (defvar *sql-log* nil ...)-3-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|*sql-log*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|12 16 (defvar *sql-log* nil ...)-3-2|
   #30Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB 63 31 5A DB DC DD
        2D 03 04 C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |SQL|::|*sql-log*|) |SQL|::|*sql-log*|
    |COMMON-LISP|::|VARIABLE| "The PostgreSQL log stream or NIL."
    |SYSTEM|::|%SET-DOCUMENTATION|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|17 17 (defvar *sql-login* "postgres" ...)-4-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|*sql-login*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|17 17 (defvar *sql-login* "postgres" ...)-4-2|
   #30Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A DB DD DE
        2D 03 05 C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |SQL|::|*sql-login*|) |SQL|::|*sql-login*|
    "postgres" |COMMON-LISP|::|VARIABLE| "The default PostgreSQL login."
    |SYSTEM|::|%SET-DOCUMENTATION|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|18 18 (defvar *sql-password* "postgres" ...)-5-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|*sql-password*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|18 18 (defvar *sql-password* "postgres" ...)-5-2|
   #30Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A DB DD DE
        2D 03 05 C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |SQL|::|*sql-password*|) |SQL|::|*sql-password*|
    "postgres" |COMMON-LISP|::|VARIABLE| "The default PostgreSQL passowrd."
    |SYSTEM|::|%SET-DOCUMENTATION|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|20 24 (define-condition sql-error (error) ...)-6-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 63 EF
        63 F0 64 7B 06 33 02 23 37 07 16 01 DC 38 02 32 3A 3E 19 01)
   (|CLOS|::|<STANDARD-CLASS>| |CLOS|::|ENSURE-CLASS| |SQL|::|sql-error|
    :|DIRECT-SUPERCLASSES| |COMMON-LISP|::|ERROR| :|DIRECT-SLOTS| :|NAME|
    |COMMON-LISP|::|TYPE| :|READERS| (|SQL|::|sql-type|) :|INITARGS| (:|TYPE|)
    :|TYPE| |COMMON-LISP|::|SYMBOL| |SQL|::|mesg| (|SQL|::|sql-mesg|) (:|MESG|)
    |COMMON-LISP|::|SIMPLE-STRING| :|METACLASS|
    (:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|) :|DIRECT-DEFAULT-INITARGS|
    :|DOCUMENTATION| :|GENERIC-ACCESSORS|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|20 24 (define-condition sql-error (error) ...)-6-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(#:|20 24 (define-condition sql-error (error) ...)-6-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(#:|20 24 (define-condition sql-error (error) ...)-6-2-1-1|
           #52Y(00 00 00 00 03 00 00 00 20 04 0E 01 1C 19 0E 02 1C 15 AD DE B0
                6F 05 B1 6F 06 2D 04 07 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|
            #Y(#:|20 24 (define-condition sql-error (error) ...)-6-2-1-1-1|
               #31Y(00 00 00 00 03 00 00 00 21 19 DA B1 31 94 AF B1 31 90 DB B1
                    38 02 31 95 AE B1 31 90 9E 19 05)
               (#\[ "] ")
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
            |SQL|::|sql-type| |SQL|::|sql-mesg| |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| |SQL|::|sql-error| |CLOS|::|DO-DEFMETHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|20 24 (define-condition sql-error (error) ...)-6-3|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01) (|SQL|::|sql-error|)
   |COMMON-LISP|::|NIL|)
#Y(#:|26 30 (defun pq-finish (conn) ...)-7-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|pq-finish|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|26 30 (defun pq-finish (conn) ...)-7-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|SQL|::|pq-finish| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|pq-finish|
       #29Y(00 00 00 00 01 00 00 00 26 02 9E 1F 0E 14 2F 00 1F 09 AD 2F 01 AD
            63 30 02 19 02 19 02)
       (|FFI|::|VALIDP| |SQL|::|PQfinish| |FFI|::|SET-VALIDP|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SQL|::|conn|)
       "if you do `PQfinish' twice on the same object, you will get segfault!"
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|32 36 (defun pq-clear (res) ...)-8-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|pq-clear|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|32 36 (defun pq-clear (res) ...)-8-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|SQL|::|pq-clear| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|pq-clear|
       #29Y(00 00 00 00 01 00 00 00 26 02 9E 1F 0E 14 2F 00 1F 09 AD 2F 01 AD
            63 30 02 19 02 19 02)
       (|FFI|::|VALIDP| |SQL|::|PQclear| |FFI|::|SET-VALIDP|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SQL|::|res|)
       "if you do `PQclear' twice on the same object, you will get segfault!"
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|38 41 (defun sql-error (conn res format-string ...) ...)-9-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|sql-error|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|38 41 (defun sql-error (conn res format-string ...) ...)-9-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|SQL|::|sql-error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|sql-error|
       #37Y(00 00 00 00 03 00 00 00 27 19 AF 2F 00 B0 2F 01 DC DD 99 04 63 B2
            A3 77 02 DF 92 07 05 CC 14 33 04 1E CB 1B 79)
       (|SQL|::|pq-clear| |SQL|::|pq-finish| |SQL|::|sql-error| :|MESG|
        |COMMON-LISP|::|FORMAT| :|TYPE| :|REQUEST| :|CONNECTION|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SQL|::|conn| |SQL|::|res| |SQL|::|format-string|
        |COMMON-LISP|::|&REST| |SQL|::|args|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|43 56 (defun sql-connect (&key host port ...) ...)-10-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|sql-connect|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|43 56 (defun sql-connect (&key host port ...) ...)-10-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|SQL|::|sql-connect| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|sql-connect|
       #116Y(00 00 00 00 00 00 00 00 A6 1B 07 00 00 00 3D 07 3D 06 3D 05 3D 04
             3D 03 3B 02 03 0E 07 FA 3B 01 03 0E 08 F9 B3 B3 B3 B3 B3 B3 B3 6E
             07 09 92 00 25 93 00 29 14 6F 0C 8F AC 23 0E 11 1D 15 14 EC AE AF
             6F 13 B0 6F 14 B1 6F 15 B2 6F 16 B3 6F 17 2D 08 18 15 19 08 14 E4
             30 0B 92 00 57 AC 63 E7 E8 B8 B8 B8 B8 B8 B8 B8 B7 6F 0F 2D 0C 10
             0E 11 1D 61 1B 4A)
       (:|HOST| :|PORT| :|OPTIONS| :|TTY| :|NAME| :|LOGIN| :|PASSWORD|
        |SQL|::|*sql-login*| |SQL|::|*sql-password*| |SQL|::|PQsetdbLogin|
        :|COPY| |FFI|::|SET-FOREIGN-POINTER| |SQL|::|PQstatus|
        "~S(~S,~S,~S,~S,~S,~S,~S): ~S" |SQL|::|sql-connect|
        |SQL|::|PQerrorMessage| |SQL|::|sql-error| |SQL|::|*sql-log*|
        #Y(|SQL|::|sql-connect-1|
           #129Y(00 00 00 00 07 00 00 00 21 00 B4 31 98 DA B5 38 02 31 95 B4 2F
                 01 10 02 B6 B8 31 8D 11 B4 2F 03 DE B5 38 02 31 95 B4 2F 01 10
                 02 B5 B8 31 8D 11 B4 2F 03 DF B5 38 02 31 95 B4 2F 01 10 02 B4
                 B8 31 8D 11 B4 2F 03 E0 B5 31 94 B4 2F 01 10 02 B3 B8 31 8D 11
                 B4 2F 03 E1 B5 31 94 B4 2F 01 10 02 B2 B8 31 8D 11 B4 2F 03 E2
                 B5 38 02 31 95 B4 2F 01 10 02 B1 B8 31 8D 11 B4 2F 03 B4 31 97
                 9E 19 09)
           ("Connection(" |SYSTEM|::|STREAM-START-S-EXPRESSION|
            |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
            |SYSTEM|::|STREAM-END-S-EXPRESSION|
            ") OK:\n
 db name: "
            "\n
 host:port[tty]: "
            #\: #\[
            "]\n
 options: ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |SQL|::|PQdb| |SQL|::|PQhost| |SQL|::|PQport| |SQL|::|PQtty|
        |SQL|::|PQoptions| |COMMON-LISP|::|FORMAT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&KEY| |SQL|::|host| |SQL|::|port| |SQL|::|options|
        |SQL|::|tty| |SQL|::|name| (|SQL|::|login| |SQL|::|*sql-login*|)
        (|SQL|::|password| |SQL|::|*sql-password*|))
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|58 64 (defmacro with-sql-connection (# &body body) ...)-11-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|with-sql-connection|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|58 64 (defmacro with-sql-connection (# &body body) ...)-11-2|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|SQL|::|with-sql-connection| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|with-sql-connection|
       #102Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 3D 9F 5C 78
             AC DD DD 64 2D 04 01 1D 36 AC 94 00 95 01 AC E5 E6 72 9F AC 24 0C
             36 9D F8 A4 5C 79 E8 E7 AF 7B 02 B1 E9 B2 E5 30 10 7A 7B 02 7B 02
             EB EC A1 7A ED B4 7B 02 7B 03 61 03 19 09 AE 2F 02 19 03 DE DF B1
             E0 B0 E1 6F 08 E3 B3 E4 33 07 1F D2 1B 48)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR| 1.
        |EXT|::|SOURCE-PROGRAM-ERROR| :|FORM| :|DETAIL|
        "~S: ~S does not match lambda list element ~:S" |SYSTEM|::|TEXT|
        |SQL|::|with-sql-connection|
        #1=(|SQL|::|conn| |COMMON-LISP|::|&REST| |SQL|::|options|
            |COMMON-LISP|::|&KEY| (|COMMON-LISP|::|LOG| '|SQL|::|*sql-log*|)
            |COMMON-LISP|::|&ALLOW-OTHER-KEYS|)
        :|LOG| (|COMMON-LISP|::|NIL|) |SQL|::|*sql-log*| |COMMON-LISP|::|LET*|
        |SQL|::|sql-connect| |EXT|::|REMOVE-PLIST|
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        |SQL|::|pq-finish|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (#1# |COMMON-LISP|::|&BODY| |SQL|::|body|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|66 75 (defun sql-transaction (conn command status ...) ...)-12-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|sql-transaction|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|66 75 (defun sql-transaction (conn command status ...) ...)-12-2|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|SQL|::|sql-transaction| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|sql-transaction|
       #81Y(00 00 00 00 03 00 01 00 26 0A 3B 01 02 7E 01 B0 B0 70 00 92 00 18
            93 00 1C AF AD 6F 03 91 01 2F 14 0E 08 1C 21 93 02 03 AC 2F 0B 15
            19 05 14 DB 30 02 92 00 64 B1 AD B2 DE DF B6 B6 B3 6F 06 2D 08 07
            0E 08 1D 5F 14 E3 B2 2D 03 0A 93 02 5C 1B 57)
       (|SQL|::|PQexec| :|COPY| |FFI|::|SET-FOREIGN-POINTER|
        |SQL|::|PQresultStatus| "~S(~S,~S): ~S" |SQL|::|sql-transaction|
        |SQL|::|PQresultErrorMessage| |SQL|::|sql-error| |SQL|::|*sql-log*|
        #Y(|SQL|::|sql-transaction-1|
           #26Y(00 00 00 00 02 00 00 00 21 18 DA B0 38 02 31 95 AE B0 31 90 AF
                31 97 9E 19 04)
           (" * OK: ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|FORMAT| |SQL|::|pq-clear|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SQL|::|conn| |SQL|::|command| |SQL|::|status|
        |COMMON-LISP|::|&OPTIONAL| (|SQL|::|clear-p| |COMMON-LISP|::|T|))
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|77 81 (defmacro with-sql-transaction (# &body body) ...)-13-1|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 31 E6 3E 19 01)
   (|SQL|::|with-sql-transaction|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|77 81 (defmacro with-sql-transaction (# &body body) ...)-13-2|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|SQL|::|with-sql-transaction| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|SQL|::|with-sql-transaction|
       #97Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 3B 9F 5C 78
            AC DD DD 63 2D 04 01 1D 34 AC 94 00 9E 5C 78 9F 5C 5C 78 A0 5C 5C
            5C 78 A5 5C 79 E5 B1 E6 B2 B2 B2 D2 5D 5D 5D 7A 7B 02 7B 01 E8 E9
            A1 7A EA B5 7B 02 7B 03 61 03 19 0A AE 2F 02 19 03 DE DF B1 E0 B0
            E1 6F 08 E3 B3 E4 33 07 1F)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR| 4.
        |EXT|::|SOURCE-PROGRAM-ERROR| :|FORM| :|DETAIL|
        "~S: ~S does not match lambda list element ~:S" |SYSTEM|::|TEXT|
        |SQL|::|with-sql-transaction|
        #1=(|SQL|::|res| |SQL|::|conn| |SQL|::|command| |SQL|::|status|)
        |COMMON-LISP|::|LET| |SQL|::|sql-transaction| (|COMMON-LISP|::|NIL|)
        |COMMON-LISP|::|UNWIND-PROTECT| |COMMON-LISP|::|PROGN|
        |SQL|::|pq-clear|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (#1# |COMMON-LISP|::|&BODY| |SQL|::|body|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|83 83 (pushnew "SQL" CUSTOM:*SYSTEM-PACKAGE-LIST* ...)-14|
   #22Y(00 00 00 00 00 00 00 00 20 01 DA 6B 01 DC 38 02 31 C5 0F 01 19 01)
   ("SQL" |CUSTOM|::|*SYSTEM-PACKAGE-LIST*| #.#'|CS-COMMON-LISP|::|string=|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))

APT Browse - Built by Thomas Orozco.