From: Juho Snellman <jsnell@iki.fi>
Date: Mon, 10 Dec 2007 05:46:00 +0000 (+0000)
Subject: 1.0.12.25: fix some bogus indentation
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9a9a95003920c0dacd02b1932e0e1608fb822cc2;p=sbcl.git

1.0.12.25: fix some bogus indentation
---

diff --git a/NEWS b/NEWS
index f2699ca..29b257f 100644
--- a/NEWS
+++ b/NEWS
@@ -7,9 +7,19 @@ changes in sbcl-1.0.13 relative to sbcl-1.0.12:
   * enhancement: RUN-PROGRAM allows unicode arguments and environments
     to be used (using the default stream external format), and allows
     non-simple strings to be used. (thanks to Harald Hanche-Olsen)
-  * optimizations: COPY-SEQ, FILL, and SUBSEQ are 30-80% faster for
+  * optimization: COPY-SEQ, FILL, and SUBSEQ are 30-80% faster for
     strings and vectors whose element-type or simplicity is not fully
     known at compile-time.
+  * optimization: STRING-TRIM and related functions no longer allocate
+    a new string when no trimming needs to be performed. These functions
+    are also faster than before when the input string has been declared
+    as a simple-string.
+  * optimization: READ-SEQUENCE on simple-strings is up to 80% faster.
+  * optimization: READ-LINE is significantly faster for files containing
+    long lines.
+  * optimization: non-open coded uses of character comparison operators
+    (e.g. char=) no longer cons when called with more than one parameter
+    on platforms supporting dynamic-extent allocation.
   * bug fix: READ-SEQUENCE on composite stream wrapping a Gray stream
     with STREAM-ELEMENT-TYPE (UNSIGNED-BYTE 8) signalled an error.
   * bug fix: COPY-SEQ on lists did not signal a type-error on improper
diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index f8358a4..4052fdc 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -2023,19 +2023,19 @@ register."
        ;; pointer
        #!+(or x86 x86-64)
        (not (zerop (valid-lisp-pointer-p (int-sap val))))
-      ;; FIXME: There is no fundamental reason not to use the above
-      ;; function on other platforms as well, but I didn't have
-      ;; others available while doing this. --NS 2007-06-21
-      #!-(or x86 x86-64)
-      (and (logbitp 0 val)
-           (or (< sb!vm:read-only-space-start val
-                  (* sb!vm:*read-only-space-free-pointer*
-                     sb!vm:n-word-bytes))
-               (< sb!vm:static-space-start val
-                  (* sb!vm:*static-space-free-pointer*
-                     sb!vm:n-word-bytes))
-               (< (current-dynamic-space-start) val
-                  (sap-int (dynamic-space-free-pointer))))))
+       ;; FIXME: There is no fundamental reason not to use the above
+       ;; function on other platforms as well, but I didn't have
+       ;; others available while doing this. --NS 2007-06-21
+       #!-(or x86 x86-64)
+       (and (logbitp 0 val)
+            (or (< sb!vm:read-only-space-start val
+                   (* sb!vm:*read-only-space-free-pointer*
+                      sb!vm:n-word-bytes))
+                (< sb!vm:static-space-start val
+                   (* sb!vm:*static-space-free-pointer*
+                      sb!vm:n-word-bytes))
+                (< (current-dynamic-space-start) val
+                   (sap-int (dynamic-space-free-pointer))))))
       (values (%make-lisp-obj val) t)
       (if errorp
           (error "~S is not a valid argument to ~S"
diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 56ea38c..99fea12 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -143,7 +143,7 @@
                            (not (consp (let ((sb!c:*lexenv* lexenv))
                                          (sb!c:lexenv-find name funs)))))
                       (%coerce-name-to-fun name)
-                    (%simple-eval original-exp lexenv))))
+                      (%simple-eval original-exp lexenv))))
                ((quote)
                 (unless (= n-args 1)
                   (error "wrong number of args to QUOTE:~% ~S" exp))
@@ -198,9 +198,9 @@
                     ;; PROGN; otherwise, the EVAL-WHEN form returns NIL.
                     (declare (ignore ct lt))
                     (when e
-                    (simple-eval-progn-body body lexenv)))))
+                      (simple-eval-progn-body body lexenv)))))
                ((locally)
-              (simple-eval-locally exp lexenv))
+                (simple-eval-locally exp lexenv))
                ((macrolet)
                 (destructuring-bind (definitions &rest body)
                     (rest exp)
@@ -212,7 +212,7 @@
                               (declare (ignore funs))
                               sb!c:*lexenv*)
                             :eval))))
-                  (simple-eval-locally `(locally ,@body) lexenv))))
+                    (simple-eval-locally `(locally ,@body) lexenv))))
                ((symbol-macrolet)
                 (destructuring-bind (definitions &rest body) (rest exp)
                   (multiple-value-bind (lexenv vars)
diff --git a/version.lisp-expr b/version.lisp-expr
index 498401e..a56c9a6 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".)
-"1.0.12.24"
+"1.0.12.25"