[armedbear-cvs] r12212 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Fri Oct 23 15:38:30 UTC 2009
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)
More information about the armedbear-cvs
mailing list