;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 2002 Matthew Danish
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 2002 Matthew Danish
;;;; (http://www.gnu.org/licenses/gpl.html)
;;;; *************************************************************************
;;;; (http://www.gnu.org/licenses/gpl.html)
;;;; *************************************************************************
(defmacro with-functions (&rest slots)
`(progn ,@(loop for (fn description . args) in slots collect
(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)))