Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2035/src/pcl

Modified Files:
	braid.lisp defs.lisp dfun.lisp std-class.lisp 
Log Message:
0.9.10.41:
	Kill the silly *NAME->CLASS->SLOTD-TABLE* PCL cache.
        
        * Remove the code that updated the table
        * Rewrite the only user of the data stored in the table 
          (MAKE-ACCESSOR-TABLE) to recompute it from scratch each time
        * Which actually ends up being faster than using the table,
          speeding the loading of CLOS-using FASLs a bit
        * Reduce core size by a 900 kB on x86-64


Index: braid.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/braid.lisp,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- braid.lisp	27 Feb 2006 11:02:12 -0000	1.56
+++ braid.lisp	16 Mar 2006 18:57:18 -0000	1.57
@@ -370,11 +370,7 @@
                                      fsc-p nil slot-name index))
           (set-val 'boundp-function (make-optimized-std-boundp-method-function
                                      fsc-p nil slot-name index)))
-        (set-val 'accessor-flags 7)
-        (let ((table (or (gethash slot-name *name->class->slotd-table*)
-                         (setf (gethash slot-name *name->class->slotd-table*)
-                               (make-hash-table :test 'eq :size 5)))))
-          (setf (gethash class table) slotd)))
+        (set-val 'accessor-flags 7))
       (when (and (eq name 'standard-class)
                  (eq slot-name 'slots) effective-p)
         (setq *the-eslotd-standard-class-slots* slotd))

Index: defs.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/defs.lisp,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- defs.lisp	27 Feb 2006 11:02:12 -0000	1.50
+++ defs.lisp	16 Mar 2006 18:57:18 -0000	1.51
@@ -200,8 +200,6 @@
 (defun variable-class (var env)
   (caddr (var-declaration 'class var env)))
 
-(defvar *name->class->slotd-table* (make-hash-table))
-
 (defvar *standard-method-combination*)
 
 (defun plist-value (object name)

Index: dfun.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/dfun.lisp,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- dfun.lisp	27 Feb 2006 11:02:12 -0000	1.45
+++ dfun.lisp	16 Mar 2006 18:57:18 -0000	1.46
@@ -1326,21 +1326,26 @@
                                   method))
                             (accessor-method-slot-name method))))
         (when (or (null specl-cpl)
+                  (null so-p)
                   (member *the-class-structure-object* specl-cpl))
           (return-from make-accessor-table nil))
-        (maphash (lambda (class slotd)
-                   (let ((cpl (if early-p
-                                  (early-class-precedence-list class)
-                                  (class-precedence-list class))))
-                     (when (memq specl cpl)
-                       (unless (and (or so-p
-                                        (member *the-class-standard-object*
-                                                cpl))
-                                    (or early-p
-                                        (slot-accessor-std-p slotd type)))
+        ;; Collect all the slot-definitions for SLOT-NAME from SPECL and
+        ;; all of its subclasses. If either SPECL or one of the subclasses
+        ;; is not a standard-class, bail out.
+        (labels ((aux (class)
+                   ;; FIND-SLOT-DEFINITION might not be defined yet
+                   (let ((slotd (find-if (lambda (x)
+                                           (eq (sb-pcl::slot-definition-name x)
+                                               slot-name))
+                                         (sb-pcl::class-slots class))))
+                     (when slotd
+                       (unless (or early-p
+                                   (slot-accessor-std-p slotd type))
                          (return-from make-accessor-table nil))
-                       (push (cons specl slotd) (gethash class table)))))
-                 (gethash slot-name *name->class->slotd-table*))))
+                       (push (cons specl slotd) (gethash class table))))
+                   (dolist (subclass (sb-pcl::class-direct-subclasses class))
+                     (aux subclass))))
+          (aux specl))))
     (maphash (lambda (class specl+slotd-list)
                (dolist (sclass (if early-p
                                    (early-class-precedence-list class)

Index: std-class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/std-class.lisp,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -d -r1.93 -r1.94
--- std-class.lisp	10 Mar 2006 17:40:27 -0000	1.93
+++ std-class.lisp	16 Mar 2006 18:57:18 -0000	1.94
@@ -73,10 +73,6 @@
                                                 effective-slot-definition))
   (let* ((name (slot-value slotd 'name))
          (class (slot-value slotd '%class)))
-    (let ((table (or (gethash name *name->class->slotd-table*)
-                     (setf (gethash name *name->class->slotd-table*)
-                           (make-hash-table :test 'eq :size 5)))))
-      (setf (gethash class table) slotd))
     (dolist (type '(reader writer boundp))
       (let* ((gf-name (ecase type
                               (reader 'slot-value-using-class)

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2035

Modified Files:
	version.lisp-expr 
Log Message:
0.9.10.41:
	Kill the silly *NAME->CLASS->SLOTD-TABLE* PCL cache.
        
        * Remove the code that updated the table
        * Rewrite the only user of the data stored in the table 
          (MAKE-ACCESSOR-TABLE) to recompute it from scratch each time
        * Which actually ends up being faster than using the table,
          speeding the loading of CLOS-using FASLs a bit
        * Reduce core size by a 900 kB on x86-64


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2739
retrieving revision 1.2740
diff -u -d -r1.2739 -r1.2740
--- version.lisp-expr	16 Mar 2006 14:04:59 -0000	1.2739
+++ version.lisp-expr	16 Mar 2006 18:57:17 -0000	1.2740
@@ -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.9.10.40"
+"0.9.10.41"

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13065/src/runtime

Modified Files:
	purify.c 
Log Message:
0.9.10.40:
	Fix unithreaded build (and incidentally a potential heap 
	corruption on purify, given a sufficiently small struct thread 
	or a sufficiently large UNBOUND_MARKER_WIDETAG)
	... #ifdef LISP_FEATURE_SB_THREAD the offending code.


Index: purify.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- purify.c	21 Feb 2006 22:59:33 -0000	1.59
+++ purify.c	16 Mar 2006 14:04:59 -0000	1.60
@@ -1514,10 +1514,12 @@
                (lispobj *)SymbolValue(BINDING_STACK_POINTER,thread) -
                (lispobj *)thread->binding_stack_start,
           0);
+#ifdef LISP_FEATURE_SB_THREAD
         pscav( (lispobj *) (thread+1),
                fixnum_value(SymbolValue(FREE_TLS_INDEX,0)) -
                (sizeof (struct thread))/(sizeof (lispobj)),
           0);
+#endif
     }

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13065

Modified Files:
	version.lisp-expr 
Log Message:
0.9.10.40:
	Fix unithreaded build (and incidentally a potential heap 
	corruption on purify, given a sufficiently small struct thread 
	or a sufficiently large UNBOUND_MARKER_WIDETAG)
	... #ifdef LISP_FEATURE_SB_THREAD the offending code.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2738
retrieving revision 1.2739
diff -u -d -r1.2738 -r1.2739
--- version.lisp-expr	16 Mar 2006 12:01:07 -0000	1.2738
+++ version.lisp-expr	16 Mar 2006 14:04:59 -0000	1.2739
@@ -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.9.10.39"
+"0.9.10.40"

Update of /cvsroot/sbcl/sbcl/src/compiler/alpha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/alpha

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/parms.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- parms.lisp	11 Aug 2005 14:44:16 -0000	1.27
+++ parms.lisp	16 Mar 2006 12:01:08 -0000	1.28
@@ -169,39 +169,10 @@
 ;;; can be loaded directly out of them by indirecting relative to NIL.
 ;;;
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-
-    ;; functions that the C code needs to call
-    sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!di::handle-breakpoint
-    sb!di::handle-fun-end-breakpoint
-
-    ;; free pointers
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; things needed for non-local exit
-    *current-catch-block*
-    *current-unwind-protect-block*
-
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
-
-    ;; interrupt handling
-    *free-interrupt-context-index*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *gc-inhibit*
-    *gc-pending*))
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '()))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135

Modified Files:
	NEWS build-order.lisp-expr package-data-list.lisp-expr 
	version.lisp-expr 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.967
retrieving revision 1.968
diff -u -d -r1.967 -r1.968
--- NEWS	15 Mar 2006 04:21:03 -0000	1.967
+++ NEWS	16 Mar 2006 12:01:07 -0000	1.968
@@ -4,6 +4,8 @@
     MacOS X 10.4.5 on Intel.
   * new feature: Unicode character names are now known to the system
     (through CHAR-NAME and NAME-CHAR).
+  * new feature: the filesystem location of SBCL's core file is
+    exposed to lisp through the variable SB-EXT:*CORE-PATHNAME*.
   * minor incompatible change: the contrib modules SB-POSIX and
     SB-BSD-SOCKETS no longer depend on stub C libraries; the intent of
     this change is to make it easier to distribute

Index: build-order.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/build-order.lisp-expr,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- build-order.lisp-expr	27 Feb 2006 13:12:34 -0000	1.64
+++ build-order.lisp-expr	16 Mar 2006 12:01:07 -0000	1.65
@@ -105,6 +105,7 @@
 
  ;; for various constants e.g. SB!XC:MOST-POSITIVE-FIXNUM and
  ;; SB!VM:N-LOWTAG-BITS, needed by "early-objdef" and others
+ ("src/compiler/generic/parms")
  ("src/compiler/target/parms")
  ("src/compiler/generic/early-vm")
  ("src/compiler/generic/early-objdef")
@@ -216,8 +217,9 @@
 
  ("src/code/unix" :not-host)
  #!+win32 ("src/code/win32" :not-host)
-
  #!+mach  ("src/code/mach"     :not-host)
+
+ ("src/code/common-os" :not-host)
  #!+mach  ("src/code/mach-os"  :not-host)
  #!+sunos ("src/code/sunos-os" :not-host)
  #!+hpux  ("src/code/hpux-os"  :not-host)

Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.348
retrieving revision 1.349
diff -u -d -r1.348 -r1.349
--- package-data-list.lisp-expr	27 Feb 2006 13:12:34 -0000	1.348
+++ package-data-list.lisp-expr	16 Mar 2006 12:01:07 -0000	1.349
@@ -564,7 +564,7 @@
       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
       :export ( ;; Information about how the program was invoked is
                ;; nonstandard but very useful.
-               "*POSIX-ARGV*"
+               "*POSIX-ARGV*" "*CORE-PATHNAME*"
                "POSIX-GETENV" "POSIX-ENVIRON"
 
                ;; People have various good reasons to mess with the GC.
@@ -788,6 +788,9 @@
       :export (;; lambda list keyword extensions
                "&MORE"
 
+               ;; communication between the runtime and Lisp
+               "*CORE-STRING*"
+
                ;; INFO stuff doesn't belong in a user-visible package, we
                ;; should be able to change it without apology.
                "*INFO-ENVIRONMENT*"

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2737
retrieving revision 1.2738
diff -u -d -r1.2737 -r1.2738
--- version.lisp-expr	16 Mar 2006 03:24:13 -0000	1.2737
+++ version.lisp-expr	16 Mar 2006 12:01:07 -0000	1.2738
@@ -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.9.10.38"
+"0.9.10.39"

Update of /cvsroot/sbcl/sbcl/src/compiler/hppa
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/hppa

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/parms.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- parms.lisp	11 Aug 2005 14:44:16 -0000	1.10
+++ parms.lisp	16 Mar 2006 12:01:08 -0000	1.11
@@ -110,41 +110,11 @@
 ;;; The fdefn objects for the static functions are loaded into static
 ;;; space directly after the static symbols.  That way, the raw-addr
 ;;; can be loaded directly out of them by indirecting relative to NIL.
-;;;
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-
-    ;; Functions that the C code needs to call
-    sb!impl::sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!di::handle-breakpoint
-    sb!impl::fdefinition-object
-
-    ;; Free Pointers.
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; Things needed for non-local-exit.
-    *current-catch-block*
-    *current-unwind-protect-block*
-
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
-
-    ;; Interrupt Handling
-    *free-interrupt-context-index*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *gc-inhibit*
-    *gc-pending*))
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '()))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/generic

Modified Files:
	genesis.lisp 
Added Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


--- NEW FILE: parms.lisp ---
;;;; This file contains some parameterizations of various VM
;;;; attributes common to all architectures.

;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.

(in-package "SB!VM")

(defparameter *c-callable-static-symbols*
  '(sub-gc
    sb!kernel::internal-error
    sb!kernel::control-stack-exhausted-error
    sb!kernel::undefined-alien-variable-error
    sb!kernel::undefined-alien-function-error
    sb!kernel::memory-fault-error
    sb!di::handle-breakpoint
    fdefinition-object
    #!+sb-thread sb!thread::run-interruption
    #!+win32 sb!kernel::handle-win32-exception))

(defparameter *common-static-symbols*
  '(t

    ;; filled in by the C code to propagate to Lisp
    *posix-argv* *core-string*

    ;; free pointers.  Note that these are FIXNUM word counts, not (as
    ;; one might expect) byte counts or SAPs. The reason seems to be
    ;; that by representing them this way, we can avoid consing
    ;; bignums.  -- WHN 2000-10-02
    *read-only-space-free-pointer*
    *static-space-free-pointer*
    *initial-dynamic-space-free-pointer*

    ;; things needed for non-local-exit
    *current-catch-block*
    *current-unwind-protect-block*

    ;; stack pointers
    *binding-stack-start*
    *control-stack-start*
    *control-stack-end*

    ;; interrupt handling
    *free-interrupt-context-index*
    sb!unix::*interrupts-enabled*
    sb!unix::*interrupt-pending*
    *gc-inhibit*
    *gc-pending*))
Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -d -r1.117 -r1.118
--- genesis.lisp	21 Feb 2006 22:59:32 -0000	1.117
+++ genesis.lisp	16 Mar 2006 12:01:08 -0000	1.118
@@ -1255,19 +1255,8 @@
   ;; the names to highlight that something weird is going on. Perhaps
   ;; *MAYBE-GC-FUN*, *INTERNAL-ERROR-FUN*, *HANDLE-BREAKPOINT-FUN*,
   ;; and *HANDLE-FUN-END-BREAKPOINT-FUN*...
-  (macrolet ((frob (symbol)
-               `(cold-set ',symbol
-                          (cold-fdefinition-object (cold-intern ',symbol)))))
-    (frob sub-gc)
-    (frob internal-error)
-    #!+win32 (frob handle-win32-exception)
-    (frob sb!kernel::control-stack-exhausted-error)
-    (frob sb!kernel::undefined-alien-variable-error)
-    (frob sb!kernel::undefined-alien-function-error)
-    (frob sb!kernel::memory-fault-error)
-    (frob sb!di::handle-breakpoint)
-    (frob sb!di::handle-fun-end-breakpoint)
-    #!+sb-thread (frob sb!thread::run-interruption))
+  (dolist (symbol sb!vm::*c-callable-static-symbols*)
+    (cold-set symbol (cold-fdefinition-object (cold-intern symbol))))
 
   (cold-set 'sb!vm::*current-catch-block*          (make-fixnum-descriptor 0))
   (cold-set 'sb!vm::*current-unwind-protect-block* (make-fixnum-descriptor 0))

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/code

Modified Files:
	bsd-os.lisp early-impl.lisp linux-os.lisp osf1-os.lisp 
	sunos-os.lisp win32-os.lisp 
Added Files:
	common-os.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


--- NEW FILE: common-os.lisp ---
;;;; OS interface functions for SBCL common to all target OSes

;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.

(in-package "SB!SYS")

(defvar *software-version* nil)

(defvar *core-pathname* nil
  #!+sb-doc
  "The absolute pathname of the running SBCL core.")

;;; if something ever needs to be done differently for one OS, then
;;; split out the different part into per-os functions.
(defun os-cold-init-or-reinit ()
  (/show0 "entering OS-COLD-INIT-OR-REINIT")
  (setf *software-version* nil)
  (/show0 "setting *DEFAULT-PATHNAME-DEFAULTS*")
  (setf *default-pathname-defaults*
        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up when
        ;; we call it below:)
        (make-trivial-default-pathname)
        *default-pathname-defaults*
        ;; (final value, constructed using #'NATIVE-PATHNAME:)
        (native-pathname (sb!unix:posix-getcwd/)))
  (/show0 "setting *CORE-PATHNAME*")
  (setf *core-pathname*
        (merge-pathnames (native-pathname *core-string*)))
  (/show0 "leaving OS-COLD-INIT-OR-REINIT"))

Index: bsd-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/bsd-os.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- bsd-os.lisp	16 Dec 2005 15:06:12 -0000	1.11
+++ bsd-os.lisp	16 Mar 2006 12:01:07 -0000	1.12
@@ -1,4 +1,4 @@
-;;;; OS interface functions for CMU CL under BSD Unix.
+;;;; OS interface functions for SBCL under BSD Unix.
 
 ;;;; This code was written as part of the CMU Common Lisp project at
 ;;;; Carnegie Mellon University, and has been placed in the public
@@ -8,8 +8,9 @@
 
 ;;;; Check that target machine features are set up consistently with
 ;;;; this file.
-#!-bsd (eval-when (:compile-toplevel :load-toplevel :execute)
-         (error "The :BSD feature is missing, we shouldn't be doing this code."))
+#!-bsd
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (error "The :BSD feature is missing, we shouldn't be doing this code."))
 
 (defun software-type ()
   #!+sb-doc
@@ -20,8 +21,6 @@
        #!+NetBSD "NetBSD"
        #!+Darwin "Darwin"))
 
-(defvar *software-version* nil)
-
 (defun software-version ()
   #!+sb-doc
   "Return a string describing version of the supporting software, or NIL
@@ -33,16 +32,6 @@
                            (sb!ext:run-program "/usr/bin/uname" `("-r")
                                                :output stream))))))
 
-(defun os-cold-init-or-reinit ()
-  (setf *software-version* nil)
-  (setf *default-pathname-defaults*
-        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up when
-        ;; we call it below:)
-        (make-trivial-default-pathname)
-        *default-pathname-defaults*
-        ;; (final value, constructed using #'NATIVE-PATHNAME:)
-        (native-pathname (sb!unix:posix-getcwd/))))
-
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()
   (multiple-value-bind (err? utime stime maxrss ixrss idrss

Index: early-impl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-impl.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- early-impl.lisp	14 Jul 2005 16:30:32 -0000	1.15
+++ early-impl.lisp	16 Mar 2006 12:01:07 -0000	1.16
@@ -16,6 +16,7 @@
 ;;; listed here and then listed separately (and by now, 2001-06-06,
 ;;; slightly differently) elsewhere.
 (declaim (special *posix-argv*
+                  *core-string*
                   *read-only-space-free-pointer*
                   sb!vm:*static-space-free-pointer*
                   sb!vm:*initial-dynamic-space-free-pointer*

Index: linux-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/linux-os.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- linux-os.lisp	16 Dec 2005 15:06:12 -0000	1.11
+++ linux-os.lisp	16 Mar 2006 12:01:07 -0000	1.12
@@ -1,4 +1,4 @@
-;;;; OS interface functions for CMU CL under Linux
+;;;; OS interface functions for SBCL under Linux
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -20,8 +20,6 @@
   "Return a string describing the supporting software."
   (values "Linux"))
 
-(defvar *software-version* nil)
-
 ;;; FIXME: More duplicated logic here vrt. other oses. Abstract into
 ;;; uname-software-version?
 (defun software-version ()
@@ -35,21 +33,6 @@
                            (sb!ext:run-program "/bin/uname" `("-r")
                                                :output stream))))))
 
-;;; FIXME: This logic is duplicated in other backends:
-;;; abstract, abstract. OS-COMMON-COLD-INIT-OR-REINIT, mayhaps?
-(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
-  (/show0 "entering linux-os.lisp OS-COLD-INIT-OR-REINIT")
-  (setf *software-version* nil)
-  (/show0 "setting *DEFAULT-PATHNAME-DEFAULTS*")
-  (setf *default-pathname-defaults*
-        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up
-        ;; when we call it below:)
-        (make-trivial-default-pathname)
-        *default-pathname-defaults*
-        ;; (final value, constructed using #'NATIVE-PATHNAME:)
-        (native-pathname (sb!unix:posix-getcwd/)))
-  (/show0 "leaving linux-os.lisp OS-COLD-INIT-OR-REINIT"))
-
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()
   (multiple-value-bind

Index: osf1-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/osf1-os.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- osf1-os.lisp	16 Dec 2005 15:06:12 -0000	1.3
+++ osf1-os.lisp	16 Mar 2006 12:01:07 -0000	1.4
@@ -20,8 +20,6 @@
   "Return a string describing the supporting software."
   (values "OSF/1"))
 
-(defvar *software-version* nil)
-
 (defun software-version ()
   #!+sb-doc
   "Return a string describing version of the supporting software, or NIL
@@ -33,19 +31,6 @@
                            (sb!ext:run-program "/bin/uname" `("-r")
                                                :output stream))))))
 
-(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
-  (/show "entering osf1-os.lisp OS-COLD-INIT-OR-REINIT")
-  (setf *software-version* nil)
-  (/show "setting *DEFAULT-PATHNAME-DEFAULTS*")
-  (setf *default-pathname-defaults*
-        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up
-        ;; when we call it below:)
-        (make-trivial-default-pathname)
-        *default-pathname-defaults*
-        ;; (final value, constructed using #'NATIVE-PATHNAME:)
-        (native-pathname (sb!unix:posix-getcwd/)))
-  (/show "leaving osf1-os.lisp OS-COLD-INIT-OR-REINIT"))
-
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()
   (multiple-value-bind

Index: sunos-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/sunos-os.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- sunos-os.lisp	16 Dec 2005 15:06:12 -0000	1.5
+++ sunos-os.lisp	16 Mar 2006 12:01:07 -0000	1.6
@@ -1,4 +1,4 @@
-;;;; OS interface functions for CMU CL under Solaris (FIXME: SunOS?)
+;;;; OS interface functions for SBCL under SunOS
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -20,8 +20,6 @@
   "Return a string describing the supporting software."
   (values "SunOS"))
 
-(defvar *software-version* nil)
-
 (defun software-version ()
   #!+sb-doc
   "Return a string describing version of the supporting software, or NIL
@@ -33,19 +31,6 @@
                            (sb!ext:run-program "/bin/uname" `("-r")
                                                :output stream))))))
 
-(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
-  (/show "entering sunos-os.lisp OS-COLD-INIT-OR-REINIT")
-  (setf *software-version* nil)
-  (/show "setting *DEFAULT-PATHNAME-DEFAULTS*")
-  (setf *default-pathname-defaults*
-        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up when
-        ;; we call it below:)
-        (make-trivial-default-pathname)
-        *default-pathname-defaults*
-        ;; (final value, constructed using #'NATIVE-PATHNAME:)
-        (native-pathname (sb!unix:posix-getcwd/)))
-  (/show "leaving sunos-os.lisp OS-COLD-INIT-OR-REINIT"))
-
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()
   (multiple-value-bind

Index: win32-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/win32-os.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- win32-os.lisp	3 Jan 2006 09:52:38 -0000	1.1
+++ win32-os.lisp	16 Mar 2006 12:01:07 -0000	1.2
@@ -20,8 +20,6 @@
   "Return a string describing the supporting software."
   (values "Win32"))
 
-(defvar *software-version* nil)
-
 (defun software-version ()
   #!+sb-doc
   "Return a string describing version of the supporting software, or NIL
@@ -34,19 +32,6 @@
                            (sb!ext:run-program "/bin/uname" `("-r")
                                                :output stream))))))
 
-(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
-  (/show0 "entering win32-os.lisp OS-COLD-INIT-OR-REINIT")
-  (setf *software-version* nil)
-  (/show0 "setting *DEFAULT-PATHNAME-DEFAULTS*")
-  (setf *default-pathname-defaults*
-        ;; (temporary value, so that #'NATIVE-PATHNAME won't blow up when
-        ;; we call it below:)
-        (make-trivial-default-pathname)
-        *default-pathname-defaults*
-        ;; (final value, constructed using #'NATIVE-PATHNAME:)
-        (native-pathname (sb!unix:posix-getcwd/)))
-  (/show0 "leaving linux-os.lisp OS-COLD-INIT-OR-REINIT"))
-
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()
 #+nil  (multiple-value-bind

Update of /cvsroot/sbcl/sbcl/doc/manual
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/doc/manual

Modified Files:
	intro.texinfo start-stop.texinfo 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: intro.texinfo
===================================================================
RCS file: /cvsroot/sbcl/sbcl/doc/manual/intro.texinfo,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- intro.texinfo	26 Aug 2004 16:17:07 -0000	1.11
+++ intro.texinfo	16 Mar 2006 12:01:07 -0000	1.12
@@ -123,8 +123,13 @@
 
 @item Executable Fasl Packaging
 @code{sb-executable} can be used to concatenate multiple fasls into a
-single executable (though the presense of an SBCL runtime and core
-image is still required to run it).
+single executable (though the presense of an SBCL runtime and core image
+is still required to run it).
+
+The @code{:executable} argument to @ref{Function
+sb-ext:save-lisp-and-die} can produce a `standalone' executable
+containing both an image of the current Lisp session and an SBCL
+runtime.
 
 @item Bitwise Rotation
 @code{sb-rotate-byte} provides an efficient primitive for bitwise

Index: start-stop.texinfo
===================================================================
RCS file: /cvsroot/sbcl/sbcl/doc/manual/start-stop.texinfo,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- start-stop.texinfo	10 Mar 2005 06:01:13 -0000	1.7
+++ start-stop.texinfo	16 Mar 2006 12:01:07 -0000	1.8
@@ -112,6 +112,12 @@
 
 @include fun-sb-ext-save-lisp-and-die.texinfo
 
+To facilitate distribution of SBCL applications using external
+resources, the filesystem location of the SBCL core file being used is
+available from Lisp.
+
+@include var-sb-ext-star-core-pathname-star.texinfo
+
 @node Exit on Errors
 @comment  node-name,  next,  previous,  up
 @subsection Exit on Errors

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/mips

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/parms.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- parms.lisp	11 Oct 2005 17:58:44 -0000	1.16
+++ parms.lisp	16 Mar 2006 12:01:09 -0000	1.17
@@ -144,39 +144,11 @@
 ;;; The fdefn objects for the static functions are loaded into static
 ;;; space directly after the static symbols.  That way, the raw-addr
 ;;; can be loaded directly out of them by indirecting relative to NIL.
-;;;
 (defparameter *static-symbols*
-  '(t
-
-    *posix-argv*
-
-    sb!impl::sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!di::handle-breakpoint
-    sb!impl::fdefinition-object
-
-    ;; Free Pointers
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; Things needed for non-local-exit.
-    *current-catch-block*
-    *current-unwind-protect-block*
-
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
-
-    ;; Interrupt Handling
-    *free-interrupt-context-index*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *gc-inhibit*
-    *gc-pending*))
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '()))
 
 (defparameter *static-funs*
   '(sb!kernel:two-arg-+

Update of /cvsroot/sbcl/sbcl/src/compiler/ppc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/ppc

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ppc/parms.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- parms.lisp	21 Feb 2006 22:59:32 -0000	1.27
+++ parms.lisp	16 Mar 2006 12:01:10 -0000	1.28
@@ -169,47 +169,17 @@
 ;;; can be loaded directly out of them by indirecting relative to NIL.
 ;;;
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-
-    ;; functions that the C code needs to call
-    sb!impl::sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!di::handle-breakpoint
-    sb!impl::fdefinition-object
-
-    ;; free pointers
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; things needed for non-local exit
-    *current-catch-block*
-    *current-unwind-protect-block*
-
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
-
-    ;; interrupt handling
-    *free-interrupt-context-index*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *gc-inhibit*
-    *gc-pending*
-
-    *restart-lisp-function*
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '(
+     #!+gencgc *restart-lisp-function*
 
-    ;; CLH: 20060210 Taken from x86-64/parms.lisp per JES' suggestion
-    ;; Needed for callbacks to work across saving cores. see
-    ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
-    ;; details.
-    sb!alien::*enter-alien-callback*))
+     ;; CLH: 20060210 Taken from x86-64/parms.lisp per JES' suggestion
+     ;; Needed for callbacks to work across saving cores. see
+     ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
+     ;; details.
+     sb!alien::*enter-alien-callback*)))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/runtime

Modified Files:
	runtime.c 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: runtime.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/runtime.c,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- runtime.c	5 Feb 2006 22:03:00 -0000	1.56
+++ runtime.c	16 Mar 2006 12:01:11 -0000	1.57
@@ -365,8 +365,6 @@
     if (initial_function == NIL) {
         lose("couldn't find initial function\n");
     }
-    SHOW("freeing core");
-    free(core);
 
     gc_initialize_pointers();
 
@@ -378,6 +376,11 @@
     wos_install_interrupt_handlers(&exception_frame);
 #endif
 
+    /* Pass core filename into Lisp */
+    SetSymbolValue(CORE_STRING, alloc_base_string(core),0);
+    SHOW("freeing core");
+    free(core);
+
     /* Convert remaining argv values to something that Lisp can grok. */
     SHOW("setting POSIX-ARGV symbol value");
     SetSymbolValue(POSIX_ARGV, alloc_base_string_list(sbcl_argv),0);

Update of /cvsroot/sbcl/sbcl/src/compiler/sparc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/sparc

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/sparc/parms.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- parms.lisp	11 Aug 2005 14:44:16 -0000	1.20
+++ parms.lisp	16 Mar 2006 12:01:10 -0000	1.21
@@ -161,40 +161,10 @@
 ;;; can be loaded directly out of them by indirecting relative to NIL.
 ;;;
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-    sb!impl::*!initial-fdefn-objects*
-
-    ;; functions that the C code needs to call
-    sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!di::handle-breakpoint
-    sb!di::handle-fun-end-breakpoint
-
-    ;; free pointers
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; things needed for non-local exit
-    *current-catch-block*
-    *current-unwind-protect-block*
-
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
-
-    ;; interrupt handling
-    *free-interrupt-context-index*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *gc-inhibit*
-    *gc-pending*))
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '()))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl/src/compiler/x86-64
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/x86-64

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86-64/parms.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- parms.lisp	6 Jan 2006 01:11:10 -0000	1.17
+++ parms.lisp	16 Mar 2006 12:01:11 -0000	1.18
@@ -159,83 +159,47 @@
 (defvar *allocation-pointer*)
 (defvar *binding-stack-pointer*)
 
-;;; FIXME: !COLD-INIT probably doesn't need
-;;; to be in the static symbols table any more.
-;;;
-;;; FIXME: some of these symbols are shared by all backends,
-;;; and should be factored out into a common file.
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-
-    ;; functions that the C code needs to call.  When adding to this list,
-    ;; also add a `frob' form in genesis.lisp finish-symbols.
-    sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!kernel::memory-fault-error
-    sb!di::handle-breakpoint
-    fdefinition-object
-
-    ;; free pointers
-    ;;
-    ;; Note that these are FIXNUM word counts, not (as one might
-    ;; expect) byte counts or SAPs. The reason seems to be that by
-    ;; representing them this way, we can avoid consing bignums.
-    ;; -- WHN 2000-10-02
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '(*alien-stack*
 
-    ;; things needed for non-local exit
-    *current-catch-block*
-    *current-unwind-protect-block*
-    *alien-stack*
+     ;; interrupt handling
+     *pseudo-atomic-atomic*
+     *pseudo-atomic-interrupted*
 
-    ;; interrupt handling
-    *pseudo-atomic-atomic*
-    *pseudo-atomic-interrupted*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *free-interrupt-context-index*
-    *gc-inhibit*
-    #!+sb-thread *stop-for-gc-pending*
-    *gc-pending*
-    #!+sb-thread sb!thread::run-interruption
+     #!+sb-thread *stop-for-gc-pending*
 
-    *free-tls-index*
-    *tls-index-lock*
+     #!+sb-thread *free-tls-index*
+     #!+sb-thread *tls-index-lock*
 
-    *allocation-pointer*
-    *binding-stack-pointer*
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
+     *allocation-pointer*
+     *binding-stack-pointer*
 
-    ;; the floating point constants
-    *fp-constant-0d0*
-    *fp-constant-1d0*
-    *fp-constant-0f0*
-    *fp-constant-1f0*
+     ;; the floating point constants
+     *fp-constant-0d0*
+     *fp-constant-1d0*
+     *fp-constant-0f0*
+     *fp-constant-1f0*
 
-    ;; For GC-AND-SAVE
-    *restart-lisp-function*
+     ;; For GC-AND-SAVE
+     *restart-lisp-function*
 
-    ;; Needed for callbacks to work across saving cores. see
-    ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory details.
-    sb!alien::*enter-alien-callback*
+     ;; Needed for callbacks to work across saving cores. see
+     ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
+     ;; details.
+     sb!alien::*enter-alien-callback*
 
-    ;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
-    ;; common slot unbound check.
-    ;;
-    ;; FIXME: In SBCL, the CLOS code has become sufficiently tightly
-    ;; integrated into the system that it'd probably make sense to use
-    ;; the ordinary unbound marker for this.
-    sb!pcl::..slot-unbound..))
+     ;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
+     ;; common slot unbound check.
+     ;;
+     ;; FIXME: In SBCL, the CLOS code has become sufficiently tightly
+     ;; integrated into the system that it'd probably make sense to
+     ;; use the ordinary unbound marker for this.
+     ;;
+     ;; FIXME II: if it doesn't make sense, why is this X86-ish only?
+     sb!pcl::..slot-unbound..)))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15135/src/compiler/x86

Modified Files:
	parms.lisp 
Log Message:
0.9.10.39:
	Implement and document SB-EXT:*CORE-PATHNAME*.
	... communicate from runtime via SB-INT:*CORE-STRING*, rather 
		than constructing a pathname in C.

	Related refactoring.
	... since OS-COLD-INIT-OR-REINIT has exactly the same 
		functionality on all currently supported platforms,
		move it into a common file;
	... define common *common-static-symbols* and 
		*c-callable-static-symbols* for use in constructing
		the per-backend *static-symbols* list, and to remove
		the need for maintaining a separate list of callable
		symbols in genesis.


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/parms.lisp,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- parms.lisp	14 Mar 2006 12:27:50 -0000	1.57
+++ parms.lisp	16 Mar 2006 12:01:10 -0000	1.58
@@ -305,90 +305,47 @@
 (defvar *allocation-pointer*)
 (defvar *binding-stack-pointer*)
 
-;;; FIXME: !COLD-INIT probably doesn't need
-;;; to be in the static symbols table any more.
 (defparameter *static-symbols*
-  '(t
-
-    ;; The C startup code must fill these in.
-    *posix-argv*
-
-    ;; functions that the C code needs to call.  When adding to this list,
-    ;; also add a `frob' form in genesis.lisp finish-symbols.
-    sub-gc
-    sb!kernel::internal-error
-    sb!kernel::control-stack-exhausted-error
-    sb!kernel::undefined-alien-variable-error
-    sb!kernel::undefined-alien-function-error
-    sb!kernel::memory-fault-error
-    sb!di::handle-breakpoint
-    fdefinition-object
-    #!+win32 sb!kernel::handle-win32-exception
-
-    ;; free pointers
-    ;;
-    ;; Note that these are FIXNUM word counts, not (as one might
-    ;; expect) byte counts or SAPs. The reason seems to be that by
-    ;; representing them this way, we can avoid consing bignums.
-    ;; -- WHN 2000-10-02
-    *read-only-space-free-pointer*
-    *static-space-free-pointer*
-    *initial-dynamic-space-free-pointer*
-
-    ;; things needed for non-local exit
-    *current-catch-block*
-    *current-unwind-protect-block*
-    *alien-stack*
-
-    ;; interrupt handling
-    *pseudo-atomic-atomic*
-    *pseudo-atomic-interrupted*
-    sb!unix::*interrupts-enabled*
-    sb!unix::*interrupt-pending*
-    *free-interrupt-context-index*
-    *gc-inhibit*
-    #!+sb-thread *stop-for-gc-pending*
-    *gc-pending*
-    #!+sb-thread sb!thread::run-interruption
+  (append
+   *common-static-symbols*
+   *c-callable-static-symbols*
+   '(*alien-stack*
 
-    *free-tls-index*
-    *tls-index-lock*
+     ;; interrupt handling
+     *pseudo-atomic-atomic*
+     *pseudo-atomic-interrupted*
+     #!+sb-thread *stop-for-gc-pending*
+     #!+sb-thread *free-tls-index*
+     #!+sb-thread *tls-index-lock*
 
-    *allocation-pointer*
-    *binding-stack-pointer*
-    *binding-stack-start*
-    *control-stack-start*
-    *control-stack-end*
+     *allocation-pointer*
+     *binding-stack-pointer*
 
-    ;; the floating point constants
-    *fp-constant-0d0*
-    *fp-constant-1d0*
-    *fp-constant-0f0*
-    *fp-constant-1f0*
-    ;; The following are all long-floats.
-    *fp-constant-0l0*
-    *fp-constant-1l0*
-    *fp-constant-pi*
-    *fp-constant-l2t*
-    *fp-constant-l2e*
-    *fp-constant-lg2*
-    *fp-constant-ln2*
+     ;; the floating point constants
+     *fp-constant-0d0*
+     *fp-constant-1d0*
+     *fp-constant-0f0*
+     *fp-constant-1f0*
+     ;; The following are all long-floats.
+     *fp-constant-0l0*
+     *fp-constant-1l0*
+     *fp-constant-pi*
+     *fp-constant-l2t*
+     *fp-constant-l2e*
+     *fp-constant-lg2*
+     *fp-constant-ln2*
 
-    ;; For GC-AND-SAVE
-    *restart-lisp-function*
+     ;; For GC-AND-SAVE
+     *restart-lisp-function*
 
-    ;; Needed for callbacks to work across saving cores. see
-    ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory details.
-    sb!alien::*enter-alien-callback*
+     ;; Needed for callbacks to work across saving cores. see
+     ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory
+     ;; details.
+     sb!alien::*enter-alien-callback*
 
-    ;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
-    ;; common slot unbound check.
-    ;;
-    ;; FIXME: In SBCL, the CLOS code has become sufficiently tightly
-    ;; integrated into the system that it'd probably make sense to use
-    ;; the ordinary unbound marker for this.
-    sb!pcl::..slot-unbound..
-    ))
+     ;; see comments in ../x86-64/parms.lisp
+     sb!pcl::..slot-unbound..
+     )))
 
 (defparameter *static-funs*
   '(length

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24237

Modified Files:
	version.lisp-expr 
Log Message:
0.9.10.38:
        Add #\Uxxxx and #\Uxxxxxxxx read-syntax for characters. Make all
        characters readably printable even on non-Unicode streams. Patch by
        Robert Macomber (sbcl-devel "Unicode character names", 2006-03-06).

        * Also add a test.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.2736
retrieving revision 1.2737
diff -u -d -r1.2736 -r1.2737
--- version.lisp-expr	15 Mar 2006 17:48:25 -0000	1.2736
+++ version.lisp-expr	16 Mar 2006 03:24:13 -0000	1.2737
@@ -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.9.10.37"
+"0.9.10.38"

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24237/tests

Modified Files:
	print.impure.lisp 
Log Message:
0.9.10.38:
        Add #\Uxxxx and #\Uxxxxxxxx read-syntax for characters. Make all
        characters readably printable even on non-Unicode streams. Patch by
        Robert Macomber (sbcl-devel "Unicode character names", 2006-03-06).

        * Also add a test.


Index: print.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- print.impure.lisp	8 Nov 2005 20:31:34 -0000	1.35
+++ print.impure.lisp	16 Mar 2006 03:24:21 -0000	1.36
@@ -382,4 +382,32 @@
                         (prin1 table))))
                   print-not-readable)))
 
+;; Test that we can print characters readably regardless of the external format
+;; of the stream.
+
+(defun test-readable-character (character external-format)
+  (let ((file "print.impure.tmp"))
+    (unwind-protect
+         (progn
+           (with-open-file (stream file
+                                   :direction :output
+                                   :external-format external-format
+                                   :if-exists :supersede)
+             (write character :stream stream :readably t))
+           (with-open-file (stream file
+                                   :direction :input
+                                   :external-format external-format
+                                   :if-does-not-exist :error)
+             (assert (char= (read stream) character))))
+      (ignore-errors
+        (delete-file file)))))
+
+#+sb-unicode
+(with-test (:name (:print-readable :character :utf-8))
+  (test-readable-character (code-char #xfffe) :utf-8))
+
+#+sb-unicode
+(with-test (:name (:print-readable :character :iso-8859-1))
+  (test-readable-character (code-char #xfffe) :iso-8859-1))
+
 ;;; success

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24237/src/code

Modified Files:
	print.lisp target-char.lisp 
Log Message:
0.9.10.38:
        Add #\Uxxxx and #\Uxxxxxxxx read-syntax for characters. Make all
        characters readably printable even on non-Unicode streams. Patch by
        Robert Macomber (sbcl-devel "Unicode character names", 2006-03-06).

        * Also add a test.


Index: print.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/print.lisp,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- print.lisp	8 Nov 2005 20:31:34 -0000	1.67
+++ print.lisp	16 Mar 2006 03:24:18 -0000	1.68
@@ -1472,7 +1472,8 @@
 ;;; the character name or the character in the #\char format.
 (defun output-character (char stream)
   (if (or *print-escape* *print-readably*)
-      (let ((graphicp (graphic-char-p char))
+      (let ((graphicp (and (graphic-char-p char)
+                           (standard-char-p char)))
             (name (char-name char)))
         (write-string "#\\" stream)
         (if (and name (not graphicp))

Index: target-char.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-char.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- target-char.lisp	28 Feb 2006 14:22:54 -0000	1.14
+++ target-char.lisp	16 Mar 2006 03:24:18 -0000	1.15
@@ -250,8 +250,13 @@
         (let ((h-code (cdr (binary-search char-code
                                           (car *unicode-character-name-database*)
                                           :key #'car))))
-          (when h-code
-            (huffman-decode h-code *unicode-character-name-huffman-tree*))))))
+          (cond
+            (h-code
+             (huffman-decode h-code *unicode-character-name-huffman-tree*))
+            ((< char-code #x10000)
+             (format nil "U~4,'0X" char-code))
+            (t
+             (format nil "U~8,'0X" char-code)))))))
 
 (defun name-char (name)
   #!+sb-doc
@@ -269,9 +274,19 @@
           (let ((char-code
                  (car (binary-search encoding
                                      (cdr *unicode-character-name-database*)
-                                     :key #'cdr))))
-            (when char-code
-              (code-char char-code)))))))
+                                     :key #'cdr)))
+                (name-length (length name)))
+            (cond
+              (char-code
+               (code-char char-code))
+              ((and (or (= name-length 9)
+                        (= name-length 5))
+                    (char-equal (char name 0) #\U)
+                    (loop for i from 1 below name-length
+                          always (digit-char-p (char name i) 16)))
+               (code-char (parse-integer name :start 1 :radix 16)))
+              (t
+               nil)))))))
 
 ;;;; predicates