X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=api.lisp;h=3281f18c322f821e680a59f2fc45830fba74917a;hb=c18c02e07944ea56688b4fc350dbdab400f84fe1;hp=eb584d4cd94ee6c80bc97c3043670877eefacd23;hpb=e4c2001f95bbf608bcdb02962685c71d6ab1b74b;p=lml.git

diff --git a/api.lisp b/api.lisp
index eb584d4..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.1 2002/11/08 06:00:12 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 2002 Matthew Danish
@@ -17,8 +17,7 @@
 ;;;; (http://www.gnu.org/licenses/gpl.html)
 ;;;; *************************************************************************
 
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :lml)
+(in-package #:lml)
 
 ;;; Copyright (c) 2002 Matthew Danish.
 ;;; All rights reserved.
@@ -95,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))))