[armedbear-cvs] r12212 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Oct 23 11:38:30 2009
New Revision: 12212

Log:
Correct typo in (DEFINE-INT-BOUNDS-DERIVATION MIN ...).

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Fri Oct 23 11:38:30 2009
@@ -6323,7 +6323,7 @@
 
 (define-int-bounds-derivation min (low1 high1 low2 high2)
   (values (or (when (and low1 low2) (min low1 low2)) low1 low2)
-          (or (when (and high1 high2) (min high1 high2)) high1 hig2)))
+          (or (when (and high1 high2) (min high1 high2)) high1 high2)))
 
 (defknown derive-type-min (t) t)
 (defun derive-type-min (form)