X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=api.lisp;h=3281f18c322f821e680a59f2fc45830fba74917a;hb=c18c02e07944ea56688b4fc350dbdab400f84fe1;hp=6530189687fadf99a533f090f6dfc74d0015ed40;hpb=5151ac10e8472126199e05ff8e5ab382ecba3c68;p=lml.git diff --git a/api.lisp b/api.lisp index 6530189..3281f18 100644 --- a/api.lisp +++ b/api.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg based on Matthew Danish's code ;;;; Date Started: Nov 2002 ;;;; -;;;; $Id: api.lisp,v 1.2 2003/06/06 21:59:30 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 2002 Matthew Danish @@ -94,6 +94,6 @@ (defmacro with-functions (&rest slots) `(progn ,@(loop for (fn description . args) in slots collect - `(with-function-info (,fn ,@(if args args - '(connection-variable))) + `(with-function-info (,fn ,@(if args args + '(connection-variable))) ,description))))