projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4837: Auto commit for Debian build
[umlisp.git]
/
parse-macros.lisp
diff --git
a/parse-macros.lisp
b/parse-macros.lisp
index 224496bc58efca1dc3f15a7523f508860e6457e7..fbc2c24029af037d69d37a6901d8e28ded945cfb 100644
(file)
--- a/
parse-macros.lisp
+++ b/
parse-macros.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: parse-macros.lisp,v 1.
5 2003/05/06 02:19:46
kevin Exp $
+;;;; $Id: parse-macros.lisp,v 1.
6 2003/05/06 06:09:29
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-18,6
+18,8
@@
(in-package #:umlisp)
(in-package #:umlisp)
+(eval-when (:compile-toplevel)
+ (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))))
(defmacro with-umls-file ((line filename) &body body)
"Opens a UMLS and processes each parsed line with (body) argument"
(defmacro with-umls-file ((line filename) &body body)
"Opens a UMLS and processes each parsed line with (body) argument"