From: Daniel Barlow Date: Tue, 23 Jul 2002 18:20:10 +0000 (+0000) Subject: 0.7.6.2: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f1ca0f7d250be1ac967b9f910196f96d6bf29a19;p=sbcl.git 0.7.6.2: Revert random changes in my (Daniel's) checkout area that were mistakenly committed in 0.7.6.1. Sorry! --- diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 7015b2a..8206e41 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -1082,7 +1082,7 @@ (:io (values t t sb!unix:o_rdwr)) (:probe (values t nil sb!unix:o_rdonly))) (declare (type index mask)) - (let* ((pathname (pathname filename)) + (let* ((pathname (merge-pathnames filename)) (namestring (cond ((unix-namestring pathname input)) ((and input (eq if-does-not-exist :create)) diff --git a/src/code/stream.lisp b/src/code/stream.lisp index e8991ac..5788195 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -1153,7 +1153,6 @@ (if (null arg1) (string-output-stream-index stream))) (:charpos - ;; FIXME there's some reason we can't do this with POSITION? (do ((index (1- (the fixnum (string-output-stream-index stream))) (1- index)) (count 0 (1+ count)) diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp index 1292f46..2dde8b5 100644 --- a/src/cold/warm.lisp +++ b/src/cold/warm.lisp @@ -13,13 +13,6 @@ ;;;; general warm init compilation policy -#+(and sbcl alpha) ; SBCL/Alpha uses stop-and-copy, and Alphas have lotso RAM. -(progn - (sb!ext::gc-off) - (setf (sb!ext::bytes-consed-between-gcs) (* 30 (expt 10 6))) - (sb!ext::gc-on) - (sb!ext::gc)) - (proclaim '(optimize (compilation-speed 1) (debug #+sb-show 2 #-sb-show 1) diff --git a/version.lisp-expr b/version.lisp-expr index fb20e15..17859d9 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; for internal versions, especially for internal versions off the ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.7.6" +"0.7.6.2"