From f1ca0f7d250be1ac967b9f910196f96d6bf29a19 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Tue, 23 Jul 2002 18:20:10 +0000 Subject: [PATCH] 0.7.6.2: Revert random changes in my (Daniel's) checkout area that were mistakenly committed in 0.7.6.1. Sorry! --- src/code/fd-stream.lisp | 2 +- src/code/stream.lisp | 1 - src/cold/warm.lisp | 7 ------- version.lisp-expr | 2 +- 4 files changed, 2 insertions(+), 10 deletions(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 7015b2a8e..8206e41f4 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 e8991ac20..5788195db 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 1292f4632..2dde8b5ef 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 fb20e156f..17859d960 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" -- 2.11.4.GIT