;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: utils.lisp,v 1.9 2003/06/15 19:01:01 kevin Exp $
+;;;; $Id: utils.lisp,v 1.10 2003/07/19 20:32:48 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
(+ (* +cuisui-scale+ cui) sui))
(defun make-cuilui (cui lui)
- (declare (fixnum cui sui)
+ (declare (fixnum cui lui)
(optimize (speed 3) (safety 0) (space 0)))
(+ (* +cuisui-scale+ cui) lui))