Commit cd13034f authored by Christophe Rhodes's avatar Christophe Rhodes
Browse files

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.
parent ab03a2f3

install.sh

+2 −2
Original line number Diff line number Diff line
@@ -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

make-target-2.sh

+1 −0
Original line number Diff line number Diff line
@@ -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

src/code/early-setf.lisp

+4 −3
Original line number Diff line number Diff line
@@ -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)))

version.lisp-expr

+1 −1
Original line number Diff line number Diff line
@@ -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"