From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 7 Jun 2001 13:01:24 +0000 (+0000)
Subject: 0.6.12.23:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f17811c866c0412da17d3ee94f11cf38783301f7;p=sbcl.git

0.6.12.23:
	merged flaky2_branch back into main branch
---

f17811c866c0412da17d3ee94f11cf38783301f7
diff --cc src/code/primordial-extensions.lisp
index b3127f3,912873a..15b10b9
--- a/src/code/primordial-extensions.lisp
+++ b/src/code/primordial-extensions.lisp
@@@ -179,11 -179,11 +179,11 @@@
  						(type-of maybe-package))
  					    '*package* really-package)))))))
  
--;;; Access *DEFAULT-PATHNAME-DEFAULTS*, warning if it's silly. (Unlike
--;;; the vaguely-analogous SANE-PACKAGE, we don't actually need to
--;;; reset the variable when it's silly, since even crazy values of
--;;; *DEFAULT-PATHNAME-DEFAULTS* don't leave the system in a state where
--;;; it's hard to recover interactively.)
++;;; Access *DEFAULT-PATHNAME-DEFAULTS*, issuing a warning if its value
++;;; is silly. (Unlike the vaguely-analogous SANE-PACKAGE, we don't
++;;; actually need to reset the variable when it's silly, since even
++;;; crazy values of *DEFAULT-PATHNAME-DEFAULTS* don't leave the system
++;;; in a state where it's hard to recover interactively.)
  (defun sane-default-pathname-defaults ()
    (let* ((dfd *default-pathname-defaults*)
  	 (dfd-dir (pathname-directory dfd)))
diff --cc src/runtime/gc.c
index 0cb2f37,90a0f40..0c79f92
--- a/src/runtime/gc.c
+++ b/src/runtime/gc.c
@@@ -641,51 -636,6 +636,7 @@@ print_garbage(lispobj *from_space, lisp
  
  static lispobj trans_function_header(lispobj object);
  static lispobj trans_boxed(lispobj object);
 +
- #if DIRECT_SCAV
- static int
- scav_function_pointer(lispobj *where, lispobj object)
- {
- 	gc_assert(Pointerp(object));
- 
- 	if (from_space_p(object)) {
- 		lispobj first, *first_pointer;
- 
- 		/* object is a pointer into from space.  check to see */
- 		/* if it has been forwarded */
- 		first_pointer = (lispobj *) PTR(object);
- 		first = *first_pointer;
- 		
- 		if (!(Pointerp(first) && new_space_p(first))) {
- 			int type;
- 			lispobj copy;
- 
- 			/* must transport object -- object may point */
- 			/* to either a function header, a closure */
- 			/* function header, or to a closure header. */
- 			
- 			type = TypeOf(first);
- 			switch (type) {
- 			  case type_FunctionHeader:
- 			  case type_ClosureFunctionHeader:
- 			    copy = trans_function_header(object);
- 			    break;
- 			  default:
- 			    copy = trans_boxed(object);
- 			    break;
- 			}
- 
- 			first = *first_pointer = copy;
- 		}
- 
- 		gc_assert(Pointerp(first));
- 		gc_assert(!from_space_p(first));
- 
- 		*where = first;
- 	}
- 	return 1;
- }
- #else
  static int
  scav_function_pointer(lispobj *where, lispobj object)
  {
diff --cc tests/interface.pure.lisp
index 3ef66b6,a03ba43..1986498
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@@ -33,4 -70,9 +70,10 @@@
    (when (find-package public-package)
      (check-ext-symbols-arglist public-package)))
  (terpri)
+ 
 -;;; FIXME: It might also be good to require that every external symbol
 -;;; either has a doc string or has some good excuse (like being an
 -;;; accessor for a structure which has a doc string).
++;;; FIXME: It would probably be good to require here that every
++;;; external symbol either has a doc string or has some good excuse
++;;; (like being an accessor for a structure which has a doc string).
+ 
  (print "done with interface.pure.lisp")
++
diff --cc tests/pathnames.impure.lisp
index 6682f8c,08dfa28..3136b0a
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@@ -173,7 -173,7 +173,7 @@@
  ;;;; other implementations, they depend quite heavily on the rules for
  ;;;; namestring parsing, which are implementation-specific. So, success
  ;;;; or failure in these tests doesn't tell you anything about
--;;;; ansi-compliance unless your PARSE-NAMESTRING works like ours.
++;;;; ANSI-compliance unless your PARSE-NAMESTRING works like ours.
  
  (setf (logical-pathname-translations "scratch")
        '(("**;*.*.*" "/usr/local/doc/**/*")))
@@@ -214,7 -214,7 +214,7 @@@
          ;; === logical pathnames ===
          ;; recognizes a logical pathname namestring when
          ;; default-pathname is a logical pathname
--	;; FIXME: 0.6.12.20 fails this one.
++	;; FIXME: 0.6.12.23 fails this one.
          #+nil (#P"scratch:foo;name1" #p"name1" #p"scratch:foo;")
          ;; or when the namestring begins with the name of a defined
          ;; logical host followed by a colon [I assume that refers to pathname
@@@ -244,7 -244,7 +244,7 @@@
          (#p"SCRATCH:ABSOLUTE;PATH;NAME.TYPE"
           #p"scratch:absolute;path;name" #p"/dir/default-name.type")
  
--        ;; TODO: test version handling in LPNs
++        ;; FIXME: test version handling in LPNs
          )
        do (assert (string= (namestring (apply #'merge-pathnames params))
                            (namestring expected-result))))
diff --cc version.lisp-expr
index bce2327,dd677f1..71a7843
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@@ -15,4 -15,4 +15,4 @@@
  ;;; versions, and a string like "0.6.5.12" is used for versions which
  ;;; aren't released but correspond only to CVS tags or snapshots.
  
- "0.6.12.22"
 -"0.6.12.21.flaky2.2"
++"0.6.12.23"