X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=composite.lisp;h=230a33bd79bbe6d50e6455bcaebae89a3f8f38a8;hb=16330812b9a0fef2394d2a45889ab04bec5d3859;hp=d9e01fd794f455bd978a921715ce49a4cd014b54;hpb=3f08ed681b40700d27bfd47804d9072816ca1a15;p=umlisp.git

diff --git a/composite.lisp b/composite.lisp
index d9e01fd..230a33b 100644
--- a/composite.lisp
+++ b/composite.lisp
@@ -7,10 +7,10 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: composite.lisp,v 1.23 2003/05/27 21:43:41 kevin Exp $
+;;;; $Id: composite.lisp,v 1.25 2003/07/21 00:53:27 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -18,9 +18,6 @@
 
 (in-package #:umlisp)
 
-(eval-when (:compile-toplevel)
-  (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))))
-
 
 ;;; Semantic type constants
 
@@ -187,7 +184,7 @@
 (defun find-ucon2_freq-coc-tui-all (tui)
   (find-ucon2_freq-tui-all tui #'find-ucon2-coc-tui))
 
-#+(or cmu scl)
+#+(or scl)
 (dolist (c '(ucon_freq ustr_freq usty_freq usrl_freq))
   (let ((cl #+cmu (pcl:find-class c)
 	    #+scl (find-class c)))