source: project/release/3/sqlite3/trunk/doc.scm @ 8020

Last change on this file since 8020 was 8020, checked in by Kon Lovett, 12 years ago

Bug fix & new procs.

File size: 24.8 KB
Line 
1(use eggdoc)
2
3(define doc
4  '((eggdoc:begin
5     (name "sqlite3")
6     (description (p "Bindings to version 3.x of the SQLite API."))
7     (author (url "http://www.chust.org/" "Thomas Chust"))
8     (usage)
9     (download "sqlite3.egg")
10     (requires "synch" "tinyclos" "easyffi" "miscmacros")
11
12     (documentation
13      (p "The API of SQLite changed significantly from version 2.x to 3.x. These are new bindings to the modified API, which are reasonably complete -- most procedures that take callback arguments are missing, though.")
14      (p "For in-depth information on the functionality of the routines and general information you should consult the " (url "http://www.sqlite.org/" "SQLite documentation") " as well as this manual.")
15
16      (subsection
17       "Exceptions"
18       (p "Unless otherwise indicated, all procedures and methods in this egg may throw an exception of the kind " (tt "(exn sqlite3)") " if something goes wrong. This exception will contain a " (tt "status") " property indicating the return value of the operation that failed:"
19        (table
20         (tr (th "Symbol") (th "Meaning"))
21         #;(tr (td (tt "ok")) (td "Successful result"))
22         (tr (td (tt "error")) (td "SQL error or missing database "))
23         (tr (td (tt "internal")) (td "An internal logic error in SQLite "))
24         (tr (td (tt "permission")) (td "Access permission denied "))
25         (tr (td (tt "abort")) (td "Callback routine requested an abort "))
26         (tr (td (tt "busy")) (td "The database file is locked "))
27         (tr (td (tt "locked")) (td "A table in the database is locked "))
28         (tr (td (tt "no-memory")) (td "A malloc() failed "))
29         (tr (td (tt "read-only")) (td "Attempt to write a readonly database "))
30         (tr (td (tt "interrupt")) (td "Operation terminated by sqlite-interrupt() "))
31         (tr (td (tt "io-error")) (td "Some kind of disk I/O error occurred "))
32         (tr (td (tt "corrupt")) (td "The database disk image is malformed "))
33         (tr (td (tt "not-found")) (td "(Internal Only) Table or record not found "))
34         (tr (td (tt "full")) (td "Insertion failed because database is full "))
35         (tr (td (tt "cant-open")) (td "Unable to open the database file "))
36         (tr (td (tt "protocol")) (td "Database lock protocol error "))
37         (tr (td (tt "empty")) (td "(Internal Only) Database table is empty "))
38         (tr (td (tt "schema")) (td "The database schema changed "))
39         (tr (td (tt "too-big")) (td "Too much data for one row of a table "))
40         (tr (td (tt "constraint")) (td "Abort due to contraint violation "))
41         (tr (td (tt "mismatch")) (td "Data type mismatch "))
42         (tr (td (tt "misuse")) (td "Library used incorrectly "))
43         (tr (td (tt "no-lfs")) (td "Uses OS features not supported on host "))
44         (tr (td (tt "authorization")) (td " Authorization denied"))
45         #;(tr (td (tt "row")) (td (tt "sqlite3:step!") " has another row ready "))
46         (tr (td (tt "done")) (td (tt "sqlite3:step!") " has finished executing, so no further data is ready")))))
47
48      (subsection
49       "Classes"
50       (group
51        (definition
52          (signatures
53           (signature "class" "<sqlite3:database>")
54           (signature "class" "<sqlite3:statement>"))
55          (p "These classes are derived from " (tt "<c++-object>") ". They hold a pointer to the underlying C-structure in their " (tt "this") " slot.")
56          (p (tt "<sqlite3:statement>") " also has a " (tt "database") " slot pointing to the database object it belongs to."))))
57
58      (subsection
59       "Managing databases"
60       (group
61        (procedure
62         "(sqlite3:open (path <string>)) => <sqlite3:database>"
63         (p "Opens the indicated database file and returns a " (tt "<sqlite3:database>") " object for it.")
64         (p "The given path is subject to the same special expansion as paths passed to " (p "open-input-file") " and similar procedures."))
65        (definition
66          (signatures
67           (signature "method" "(sqlite3:define-collation (db <sqlite3:database>) (name <string>)) => <void>")
68           (signature "method" "(sqlite3:define-collation (db <sqlite3:database>) (name <string>) (proc <procedure-class>)) => <void>"))
69          (p "If " (tt "proc") " is given, registers a new collation sequence identified by " (tt "name") " for use in the context of database handle " (tt "db") ". If no procedure is passed, the collation sequence with the given name is removed.")
70          (p (tt "proc") " should have the signature " (tt "(proc (a <string>) (b <string>)) => <exact>") ". It should return a negative number if " (tt "a") " sorts before " (tt "b") ", a positive number if " (tt "b") " sorts before " (tt "a") " and zero if " (tt "a") " and " (tt "b") " are equal.")
71          (p "As " (tt "proc") " will be called in a callback context from within " (tt "sqlite3:step!") ", safety measures are installed to avoid throwing any exceptions, invoking continuations or returning invalid values from it. Attempts to do so will result in a " (tt "0") " return value and warning messages."))
72        (definition
73          (signatures
74           (signature "method" "(sqlite3:define-function (db <sqlite3:database>) (name <string>) (n <exact>) (proc <procedure-class>)) => <void>")
75           (signature "method" "(sqlite3:define-function (db <sqlite3:database>) (name <string>) (n <exact>) (step-proc <procedure-class>) (seed <top>) #!optional ((final-proc <procedure-class>) identity)) => <void>"))
76          (p "If " (tt "proc") " is given, registers a new SQL function identified by " (tt "name") " for use in the context of database handle " (tt "db") ". If " (tt "step-proc") " and " (tt "final-proc") " are given, the new function becomes an aggregate function. Once registered, functions cannot be deleted.")
77          (p (tt "n") " is the number of parameters the new SQL function takes or " (tt "-1") " to allow any number of arguments.")
78          (p (tt "proc") " should have the signature " (tt "(proc . params) => <top>") ". It is called with the " (tt "n") " parameters given to the SQL function converted into Scheme objects like by " (tt "sqlite3:column-data") ". The return value is converted into an SQLite3 data object like by " (tt "sqlite3:bind!") ". A return value of " (tt "(void)") " corresponds to " (tt "NULL") " in SQLite3.")
79          (p (tt "step-proc") " should have the signature " (tt "(step-proc (seed <top>) . params) => <top>") ". It is called with the parameters given to the SQL function for every row being processed. The seed value passed is initially the one given as an argument to " (tt "sqlite3:define-function") "; for subsequent calls it is the last value returned by " (tt "step-proc") " and after completion of " (tt "final-proc") " it will be the initial value again.")
80          (p (tt "final-proc") " should have the signature " (tt "(final-proc (seed <top>)) => <top>") " and transforms the last seed value into the value to be returned from the aggregate function.")
81          (p "As " (tt "proc") ", " (tt "step-proc") " and " (tt "final-proc") " will be called in a callback context from within " (tt "sqlite3:step!") ", safety measures are installed to avoid throwing any exceptions, invoking continuations or returning invalid values from them. Attempts to do such things will result in " (tt "NULL") " return values and warning messages."))
82        (procedure
83         "(sqlite3:set-busy-timeout! (db <sqlite3:database>) #!optional ((ms <exact>) 0)) => <void>"
84         (p "Installs a busy handler that waits at least the specified amount of milliseconds for locks on the given database. If " (tt "(<= ms 0)") " though, all busy handlers for the database are uninstalled."))
85        (procedure
86         "(sqlite3:interrupt! (db <sqlite3:database>)) => <void>"
87         (p "Cancels any running database operation as soon as possible.")
88         (p "This function is always successful and never throws an exception."))
89        (procedure
90         "(sqlite3:auto-committing? (db <sqlite3:database>)) => <bool>"
91         (p "Checks whether the database is currently in auto committing mode, i.e. no transaction is currently active.")
92         (p "This function always returns a state and never throws an exception."))
93        (procedure
94         "(sqlite3:changes (db <sqlite3:database>) #!optional ((total <bool>) #f)) => <number>"
95         (p "Returns the number of rows changed by the last statement (if " (tt "(not total)") ") or since the database was opened (if " (tt "total") ").")
96         (p "This function always returns a count and never throws an exception."))
97        (procedure
98         "(sqlite3:last-insert-rowid (db <sqlite3:database>)) => <number>"
99         (p "Returns the row ID of the last row inserted in " (tt "db") ".")
100         (p "This function always returns a number and never throws an exception."))
101        (method
102         "(sqlite3:finalize! (db <sqlite3:database>)) => <void>"
103         (p "Closes the given database."))))
104
105      (subsection
106       "Managing statements"
107       (group
108        (procedure
109         "(sqlite3:prepare (db <sqlite3:database>) (sql <string>)) => <sqlite3:statement>, <string>"
110         (p "Compiles the first SQL statement in " (tt "sql") " and returns a " (tt "<sqlite3:statement>") " and the rest of " (tt "sql") ", which was not compiled (or an empty string)."))
111        (procedure
112         "(sqlite3:repair! (stmt <sqlite3:statement>)) => <void>"
113         (p "Recompiles the SQL statement used to create " (tt "stmt") ", transfers all existing bindings from the old statement handle to the new one and destructively modifies " (tt "stmt") " to point to the new statement handle.")
114         (p "If the operation is successful, the old handle is finalized, in case of error, the new handle is finalized and the old one stays untouched.")
115         (p "Usually you should not have to call this routine by hand. It is invoked by " (tt "sqlite3:step!") " to automagically repair a stale statement handle after a database schema change."))
116        (procedure
117         "(sqlite3:column-count (stmt <sqlite3:statement>)) => <exact>"
118         (p "Can be applied to any statement and returns the number of columns it will return as results.")
119         (p "This procedure always succeeds and never throws an exception."))
120        (procedure
121         "(sqlite3:column-name (stmt <sqlite3:statement>) (i <exact>)) => <string>"
122         (p "Can be applied to any statement and returns the name of the column number " (tt "i") " (counting from 0) as a string or " (tt "#f") " if the column has no name.")
123         (p "This procedure always succeeds and never throws an exception."))
124        (procedure
125         "(sqlite3:column-declared-type (stmt <sqlite3:statement>) (i <exact>)) => <string>"
126         (p "Can be applied to any statement and returns the declared type (as given in the " (tt "CREATE") " statement) of the column number " (tt "i") " (counting from 0) as a string or " (tt "#f") " if the column has no declared type.")
127         (p "This procedure always succeeds and never throws an exception."))
128        (procedure
129         "(sqlite3:bind-parameter-count (stmt <sqlite3:statement>)) => <exact>"
130         (p "Can be applied to any statement and returns the number of free parameters that can be bound in the statement.")
131         (p "This procedure always succeeds and never throws an exception."))
132        (procedure
133         "(sqlite3:bind-parameter-index (stmt <sqlite3:statement>) (name <string>)) => <exact>"
134         (p "Can be applied to any statement and returns the index of the bindable parameter called " (tt "name") " or " (tt "#f") " if no such parameter exists.")
135         (p "This procedure always succeeds and never throws an exception."))
136        (procedure
137         "(sqlite3:bind-parameter-name (stmt <sqlite3:statement>) (i <exact>)) => <string>"
138         (p "Can be applied to any statement and returns the name of the bindable parameter number " (tt "i") " (counting from 0) or " (tt "#f") " if no such parameter exists or the parameter has no name.")
139         (p "This procedure always succeeds and never throws an exception."))
140        (definition
141          (signatures
142           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>)) => <void>")
143           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>) (v <void>)) => <void>")
144           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>) (v <exact>)) => <void>")
145           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>) (v <number>)) => <void>")
146           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>) (v <string>)) => <void>")
147           (signature "method" "(sqlite3:bind! (stmt <sqlite3:statement>) (i <exact>) (v <blob>)) => <void>"))
148          (p "Can be applied to any statement to bind its free parameter number " (tt "i") " (counting from 0) to the given value. Scheme types of the value map to SQLite types as follows:"
149             (table
150              (tr (th "Scheme type") (th "SQLite type"))
151              (tr (td "none") (td (tt "null")))
152              (tr (td (tt "<sqlite3:null-value>")) (td (tt "null")))
153              (tr (td (tt "<exact>")) (td (tt "integer")))
154              (tr (td (tt "<number>")) (td (tt "float")))
155              (tr (td (tt "<string>")) (td (tt "text")))
156              (tr (td (tt "<blob>")) (td (tt "blob")))))
157          (p "Unless there is internal trouble in SQLite3, this method should always succeeds and never throw an exception. For invalid parameter indices the method just silently does nothing."))
158        (procedure
159         "(sqlite3:bind-parameters! (stmt <sqlite3:statement>) . params) => <void>"
160         (p "Binds the statement's free parameters."))
161        (procedure
162         "(sqlite3:step! (stmt <sqlite3:statement>)) => <boolean>"
163         (p "Single-steps the execution of " (tt "stmt") " and returns " (tt "#t") " if a result row was produced, " (tt "#f") " if no further results are available as the statement has been stepped through. This procedure must be called at least once before any results can be retrieved from the statement."))
164        (procedure
165         "(sqlite3:column-type (stmt <sqlite3:statement>) (i <exact>)) => <symbol>"
166         (p "Can be applied to a statement that has just been stepped (otherwise it returns " (tt "#f") ") and returns the SQLite type of the result column number " (tt "i") " (counting from 0) as a symbol.")
167         (p "The return value can be one of the symbols " (tt "null") ", " (tt "integer") ", " (tt "float") ", " (tt "text") " or " (tt "blob") ".")
168         (p "This procedure always succeeds and never throws an exception."))
169        (procedure
170         "(sqlite3:column-data (stmt <sqlite3:statement>) (i <exact>)) => <void | exact | number | string | blob>"
171         (p "Can be applied to a statement that has just been stepped. Consults " (tt "sqlite3:column-type") " to determine the type of the indicated column and to return its data as an appropriate scheme object.")
172         (p "See " (tt "sqlite3:bind!") " for the mapping between Scheme and SQLite data types. Columns of type " (tt "null") " are returned as " (tt "<sqlite3:null-value>") ". Also keep in mind that CHICKEN's " (tt "<exact>") " datatype can only hold a subset of the values an SQLite " (tt "integer") " can store. Large integer values may therefore be returned as floating point numbers from the database, but they will still be of class " (tt "<integer>") ".")
173         (p "This procedure always succeeds and never throws an exception."))
174        (procedure
175         "(sqlite3:reset! (stmt <sqlite3:statement>)) => <void>"
176         (p "Can be applied to any statement and resets it such that execution using " (tt "sqlite3:step!") " will perform all operations of the statement again."))
177        (method
178         "(sqlite3:finalize! (stmt <sqlite3:statement>)) => <void>"
179         (p "Must be applied to every statement to free its resources and discard it.")
180         (p (tt "sqlite3:close") " will not be able to close a database that has associated unfinalized statements."))))
181
182      (subsection
183       "Simple statement interface"
184       (group
185        (procedure
186         "(sqlite3:call-with-temporary-statements (proc <procedure-class>) (db <sqlite3:database>) . sqls) => <top>"
187         (p "Compiles the SQL sources in " (tt "sqls") " into statements in the context of " (tt "db") ", applies " (tt "proc") " to these statements and returns " (tt "proc") "'s result. The statements are created and finalized in " (tt "dynamic-wind") " entry and exit blocks around the application of " (tt "proc") "."))
188        (definition
189          (signatures
190           (signature "method" "(sqlite3:exec (stmt <sqlite3:statement>) . params) => <void>")
191           (signature "method" "(sqlite3:exec (db <sqlite3:database>) (sql <string>) . params) => <void>"))
192          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and executes the statement ignoring possible results from it."))
193        (definition
194          (signatures
195           (signature "method" "(sqlite3:update (stmt <sqlite3:statement>) . params) => <exact>")
196           (signature "method" "(sqlite3:update (db <sqlite3:database>) (sql <string>) . params) => <exact>"))
197          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and executes the specified statement ignoring possible results from it, returning the result of applying " (tt "sqlite3:changes") " to the affected database after the execution of the statement instead."))
198        (definition
199          (signatures
200           (signature "method" "(sqlite3:first-result (stmt <sqlite3:statement>) . params) => <void | exact | number | string | blob>")
201           (signature "method" "(sqlite3:first-result (db <sqlite3:database>) (sql <string>) . params) => <void | exact | number | string | blob>"))
202          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and single-steps the statement once returning the value of the first column in the first result row. Resets the statement again just before returning.")
203          (p "If the given statement does not yield any results, an " (tt "(exn sqlite3)") " is thrown with the " (tt "status") "-property set to " (tt "done") "."))
204        (definition
205          (signatures
206           (signature "method" "(sqlite3:first-row (stmt <sqlite3:statement>) . params) => <list>")
207           (signature "method" "(sqlite3:first-row (db <sqlite3:database>) (sql <string>) . params) => <list>"))
208          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and single-steps the statement once returning all columns in the first result row as a list.")
209          (p "If the given statement does not yield any results, an " (tt "(exn sqlite3)") " is thrown with the " (tt "status") "-property set to " (tt "done") "."))(definition
210          (signatures
211           (signature "method" "(sqlite3:fold-row (proc <procedure-class>) (stmt <sqlite3:statement>) initial . params) => <list>")
212           (signature "method" "(sqlite3:fold-row (proc <procedure-class>) (db <sqlite3:database>) (sql <string>) initial . params) => <list>"))
213          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and executes it step by step. After each step, the column values of the current result row are retrieved and " (tt "proc") " is applied to the current folded value and the column values. The result of the application becomes the new folded value."))
214        (definition
215          (signatures
216           (signature "method" "(sqlite3:for-each-row (proc <procedure-class>) (stmt <sqlite3:statement>) . params) => <void>")
217           (signature "method" "(sqlite3:for-each-row (proc <procedure-class>) (db <sqlite3:database>) (sql <string>) . params) => <void>"))
218          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and executes it step by step. After each step, the column values of the current result row are retrieved and " (tt "proc") " is applied to them. The results of this application are discarded."))
219        (definition
220          (signatures
221           (signature "method" "(sqlite3:map-row (proc <procedure-class>) (stmt <sqlite3:statement>) . params) => <list>")
222           (signature "method" "(sqlite3:map-row (proc <procedure-class>) (db <sqlite3:database>) (sql <string>) . params) => <list>"))
223          (p "(Compiles the given SQL), resets the statement, binds the statement's free parameters and executes it step by step. After each step, the column values of the current result row are retrieved and " (tt "proc") " is applied to them. The results of these applications are collected into a list."))))
224
225      (subsection
226       "Utility functions"
227       (group
228        (procedure
229         "(sqlite3:with-transaction (db <sqlite3:database>) (thunk <procedure-class>) #!optional ((type <symbol>) 'deferred)) => <void>"
230         (p "Runs " (tt "thunk") " within the scope of a transaction on the dataase " (tt "db") ".")
231         (p "The transaction is committed upon exit from " (tt "thunk") " if " (tt "thunk") " returns a true value. If " (tt "thunk") " returns a false value or throws an exception, the transaction is rolled back.")
232         (p "The " (tt "type") " of the transaction can be specified as one of the symbols " (tt "deferred") ", " (tt "immediate") " or " (tt "exclusive") "."))
233        (procedure
234         "(sqlite3:complete? (sql <string>)) => <boolean>"
235         (p "Checks whether " (tt "sql") " comprises at least one complete SQL statement."))
236        (procedure
237         "(sqlite3:library-version) => <string>"
238         (p "Returns a string identifying the version of SQLite in use."))
239        (procedure
240         "(sqlite3:null-value? <object>) => <boolean>"
241         (p "Is the " (tt "<object>") " a <sqlite3:null-value>?")
242         (p "The <sqlite3:null-value> is compatible with the \"sql-null\" egg. "
243            "The default \"sql-null\" egg function " (code "(sql-null)") " "
244            "= the <sqlite3:null-value>. "
245            "But to ensure equality - " (code "(define sql-null sqlite3:null)") ".")))))
246
247     (history
248      (version "2.0.4" "Added " (code "sqlite3:fold-row") " & " (code "sqlite3:bind-parameters!") ". Fix for introduced bug in " (code "sqlite3:changes") ". [Kon Lovett]")
249      (version "2.0.3" "Added " (code "sqlite3:null-value") ", " (code "sqlite3:null-value?") ", and " (code "sqlite3:null") ". [Kon Lovett]")
250      (version "2.0.2" "Use of extended " (tt "define-foreign-enum") ". Removed deprecated " (tt "pointer") " use. [Kon Lovett]")
251      (version "2.0.1" "Deprecated " (tt "<byte-vector>") ", use " (tt "<blob>") " [Kon Lovett]")
252      (version "2.0.0" "Now using " (tt "(void)") " to represent " (tt "NULL"))
253      (version "1.5.9" "dll extension not used anymore in newer chickens [felix]")
254      (version "1.5.8" "Update for synch 1.3 [Kon Lovett]")
255      (version "1.5.7" "Updated compiler flags to pull in tinyclos and easyffi")
256      (version "1.5.6" "Replaced deprecated synch operations [Kon Lovett]")
257      (version "1.5.5" "Correction in the documentation, added sqlite3:with-transaction")
258      (version "1.5.4" "Typo fixed thanks to the new imports checking code")
259      (version "1.5.3" "Proper multithreading locks for the callback code")
260      (version "1.5.2" "Code cleanups")
261      (version "1.5.1" "Potential memory leaks removed")
262      (version "1.5.0" "Support for user defined collation sequences and functions has been added")
263      (version "1.4.0" "Stale statement handles due to schema changes are now automagically recompiled to keep them valid")
264      (version "1.3.1" "Several small routines added")
265      (version "1.3.0" "Special hacks removed as CVS version of SQLite3.3.4 has been fixed")
266      (version "1.2.0" "Special hacks to deal with \"valid\" " (tt "NULL") " statements")
267      (version "1.1.4" "Tightened security measures against " (tt "#f") " pointers")
268      (version "1.1.3" "Integers not fitting in a fixnum are now read correctly from the database [thanks to Zbigniew]")
269      (version "1.1.2" "Setup file patched to call compiled output .dll on Windows")
270      (version "1.1.1" "All procedures now reset prepared statements where you would do that by hand anyway")
271      (version "1.1.0" "Promoted " (tt "sqlite3:call-with-temporary-statement") " to " (tt "sqlite3:call-with-temporary-statements") " and fixed a really stupid coding mistake in " (tt "sqlite3:changes"))
272      (version "1.0.3" "Fixed C compiler warnings")
273      (version "1.0.2" "Added a typecheck for increased safety")
274      (version "1.0.1" "Fixed type mistakes in the source")
275      (version "1.0.0" "Initial release"))
276
277      (license
278       "Copyright (c) 2005, Thomas Chust <chust@web.de>.  All rights reserved.
279
280Redistribution and use in source and binary forms, with or without
281modification, are permitted provided that the following conditions are met:
282
283  Redistributions of source code must retain the above copyright notice,
284  this list of conditions and the following disclaimer. Redistributions in
285  binary form must reproduce the above copyright notice, this list of
286  conditions and the following disclaimer in the documentation and/or
287  other materials provided with the distribution. Neither the name of the
288  author nor the names of its contributors may be used to endorse or
289  promote products derived from this software without specific prior
290  written permission.
291
292THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS
293IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
294THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
295PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
296CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
297EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
298PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
299PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
300LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
301NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
302SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."))))
303
304(eggdoc->html
305 doc
306 (append
307  (eggdoc:make-stylesheet doc)
308  `((method *macro* . ,eggdoc:make-defsig))))
Note: See TracBrowser for help on using the repository browser.