[cmucl-cvs] CMUCL commit: src/code (unidata.lisp)

Raymond Toy rtoy at common-lisp.net
Sat Apr 2 20:11:32 UTC 2011


    Date: Saturday, April 2, 2011 @ 16:11:32
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: unidata.lisp

Remove extra right parenthesis.


--------------+
 unidata.lisp |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)


Index: src/code/unidata.lisp
diff -u src/code/unidata.lisp:1.24 src/code/unidata.lisp:1.25
--- src/code/unidata.lisp:1.24	Tue Feb 22 22:02:33 2011
+++ src/code/unidata.lisp	Sat Apr  2 16:11:31 2011
@@ -4,7 +4,7 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;; 
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.24 2011-02-23 03:02:33 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/unidata.lisp,v 1.25 2011-04-02 20:11:31 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,7 +18,7 @@
 
 (defconstant +unidata-path+ #p"ext-formats:unidata.bin")
 
-(defvar *unidata-version* "$Revision: 1.24 $")
+(defvar *unidata-version* "$Revision: 1.25 $")
 
 (defstruct unidata
   range
@@ -779,8 +779,7 @@
 	 (n (exact-match-dictionary name names)))
       (when n
 	(let ((cp (aref (dictionary-codev names) n)))
-	  (if (minusp cp) nil cp))))))
-
+	  (if (minusp cp) nil cp)))))
 
 (defun unicode-name+ (code ntrie dict)
   (declare (optimize (speed 3) (space 0) (safety 0)




More information about the cmucl-cvs mailing list