0.8.7.52:

	Miscellaneous fixes
	... fix bad behaviour on install.sh on missing directories (reported
		Zach Beane sbcl-devel 2004-01-16)
	... fix PUSHNEW docstring (patch VJA sbcl-devel 2003-12-30)
	... call PACK-BEFORE-GC-HOOK by hand in make-target-2.sh, to get
		core sizes down a bit (2Mb on x86, 6Mb on PPC).  We're still
		awaiting a proper fix, though.

diff --git a/install.sh b/install.sh
index b8827e5..a2d30fd 100644 (file)
--- a/install.sh
+++ b/install.sh
@@ -5,7 +5,7 @@
 ensure_dirs () 
 {
     for j in $*; do 
-       test -d $j || mkdir $j
+       test -d $j || mkdir -p $j
     done;
 }
 
@@ -23,7 +23,7 @@ SBCL_HOME=$INSTALL_ROOT/lib/sbcl
 export SBCL_HOME INSTALL_ROOT
 ensure_dirs $BUILD_ROOT$INSTALL_ROOT $BUILD_ROOT$INSTALL_ROOT/bin \
     $BUILD_ROOT$INSTALL_ROOT/lib  \
-    $MAN_DIR $MAN_DIR/man1 \
+    $BUILD_ROOT$MAN_DIR $BUILD_ROOT$MAN_DIR/man1 \
     $BUILD_ROOT$SBCL_HOME $BUILD_ROOT$SBCL_HOME/systems \
     $BUILD_ROOT$SBCL_HOME/site-systems
 

diff --git a/make-target-2.sh b/make-target-2.sh
index fb1c8c1..a5ee9fa 100644 (file)
--- a/make-target-2.sh
+++ b/make-target-2.sh
@@ -65,6 +65,7 @@ echo //doing warm init
        ;; (GC :FULL T gets us down to about 38 Mbytes, but PURIFY
        ;; gets us down to about 19 Mbytes.)
        (sb-int:/show "done with warm.lisp, about to GC :FULL T")
+       (sb-c::pack-before-gc-hook) ; KLUDGE
        (gc :full t)
 
         ;; resetting compilation policy to neutral values in

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index e4f43ed..4f7a94a 100644 (file)
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -197,9 +197,10 @@ GET-SETF-EXPANSION directly."
 
 (defmacro-mundanely pushnew (obj place &rest keys &environment env)
   #!+sb-doc
-  "Takes an object and a location holding a list. If the object is already
-  in the list, does nothing. Else, conses the object onto the list. Returns
-  NIL. If there is a :TEST keyword, this is used for the comparison."
+  "Takes an object and a location holding a list. If the object is
+  already in the list, does nothing; otherwise, conses the object onto
+  the list. Returns the modified list. If there is a :TEST keyword, this
+  is used for the comparison."
   (multiple-value-bind (dummies vals newval setter getter)
       (get-setf-method place env)
     (let ((g (gensym)))

diff --git a/version.lisp-expr b/version.lisp-expr
index bb33522..28199b0 100644 (file)
--- 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.8.7.51"
+"0.8.7.52"