0.6.12.23:

	merged flaky2_branch back into main branch

diff --cc src/code/primordial-extensions.lisp
index b3127f3,912873a..15b10b9
--- 1/src/code/primordial-extensions.lisp
--- 2/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
--- 1/src/runtime/gc.c
--- 2/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
--- 1/tests/interface.pure.lisp
--- 2/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
--- 1/tests/pathnames.impure.lisp
--- 2/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
--- 1/version.lisp-expr
--- 2/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"