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.
ensure_dirs ()
{
for j in $*; do
ensure_dirs ()
{
for j in $*; do
+ test -d $j || mkdir -p $j
export SBCL_HOME INSTALL_ROOT
ensure_dirs $BUILD_ROOT$INSTALL_ROOT $BUILD_ROOT$INSTALL_ROOT/bin \
$BUILD_ROOT$INSTALL_ROOT/lib \
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
$BUILD_ROOT$SBCL_HOME $BUILD_ROOT$SBCL_HOME/systems \
$BUILD_ROOT$SBCL_HOME/site-systems
;; (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")
;; (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
(gc :full t)
;; resetting compilation policy to neutral values in
(defmacro-mundanely pushnew (obj place &rest keys &environment env)
#!+sb-doc
(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)))
(multiple-value-bind (dummies vals newval setter getter)
(get-setf-method place env)
(let ((g (gensym)))
;;; 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".)
;;; 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".)