;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.13 2002/12/13 07:34:20 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.14 2002/12/13 08:41:32 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(results '()))
(dolist (tuple tuples)
(destructuring-bind (str sca agr cit bas) tuple
- (push (make-instance 'lagr :eui eui :str str :sca sca :agr agr :
- cit cit :bas bas)
+ (push (make-instance 'lagr :eui eui :str str :sca sca :agr agr
+ :cit cit :bas bas)
results)))
(nreverse results)))