;;;;
;;;; 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
(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)))