From 6c2c952e89b251ca838df40c9e0ad09619afc037 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Mon, 15 Aug 2005 22:00:39 +0000 Subject: [PATCH] 0.9.3.54: Minor cleanups: * INSTALL spelling fix by Luis Oliveira; * dependent policy LET-CONVERTION => LET-CONVERSION; * Note optimization opportunity in OPTIMIZATIONS. --- INSTALL | 2 +- OPTIMIZATIONS | 15 +++++++++++++++ src/compiler/policies.lisp | 2 +- version.lisp-expr | 2 +- 4 files changed, 18 insertions(+), 3 deletions(-) diff --git a/INSTALL b/INSTALL index ed2e32a..70bcffd 100644 --- a/INSTALL +++ b/INSTALL @@ -31,7 +31,7 @@ INSTALLING SBCL In other words, "install.sh" installs SBCL under the directory named by the environment variable "INSTALL_ROOT". - If you install SBCL from binary distribution in other location then + If you install SBCL from binary distribution in other location than "/usr/local", see section 1.2, "Finding ancillary files". 1.2. Finding ancillary files diff --git a/OPTIMIZATIONS b/OPTIMIZATIONS index c79f922..0c8e790 100644 --- a/OPTIMIZATIONS +++ b/OPTIMIZATIONS @@ -265,3 +265,18 @@ architectures. Certainly adding #!+/- magic in compiler/*.lisp could be done, but such a solution is somewhat inelegant. Moving the relevant DEFTRANSFORMs to the architecture-specific compiler/* areas is also possible, but that would duplicate quite a bit of code. +-------------------------------------------------------------------------------- +#30 +(defun foo (x y) + (< x y)) + +FOO's IR1 representation is roughly: + +(defun foo (x y) + (if (< x y) + T + NIL)) + +However, if a full call is generated for < (and similarly for other +predicate functions), then the IF is unnecessary, since the return value +of (< x y) is already T or NIL. diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp index b1d2ee6..5aac778 100644 --- a/src/compiler/policies.lisp +++ b/src/compiler/policies.lisp @@ -27,7 +27,7 @@ (t 3)) ("no" "maybe" "yes" "yes")) -(define-optimization-quality let-convertion +(define-optimization-quality let-conversion (if (<= debug speed) 3 0) ("off" "maybe" "on" "on")) diff --git a/version.lisp-expr b/version.lisp-expr index 9cde808..1e47ae0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.3.53" +"0.9.3.54" -- 1.7.10.4