[Sbcl-commits] CVS: sbcl/src/code linux-os.lisp,1.7,1.8 target-alieneval.lisp,1.24,1.25 target-signal.lisp,1.19,1.20

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv3432/src/code

Modified Files:
	linux-os.lisp target-alieneval.lisp target-signal.lisp 
Log Message:
0.8.6.18:
	ASDF-INSTALL fix (parse *proxy* properly, as per Sean Ross sbcl-devel
	2003-10-23)
	... start parse-integer at the right place
	SHOW patchery from Nikodemus Siivola (sbcl-devel 2003-11-28)


Index: linux-os.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/linux-os.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- linux-os.lisp	12 Jun 2001 17:08:45 -0000	1.7
+++ linux-os.lisp	30 Nov 2003 15:49:04 -0000	1.8
@@ -34,9 +34,9 @@
 					       :output stream))))))
 
 (defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
-  (/show "entering linux-os.lisp OS-COLD-INIT-OR-REINIT")
+  (/show0 "entering linux-os.lisp OS-COLD-INIT-OR-REINIT")
   (setf *software-version* nil)
-  (/show "setting *DEFAULT-PATHNAME-DEFAULTS*")
+  (/show0 "setting *DEFAULT-PATHNAME-DEFAULTS*")
   (setf *default-pathname-defaults*
 	;; (temporary value, so that #'PATHNAME won't blow up when
 	;; we call it below:)
@@ -44,7 +44,7 @@
 	*default-pathname-defaults*
 	;; (final value, constructed using #'PATHNAME:)
 	(pathname (sb!unix:posix-getcwd/)))
-  (/show "leaving linux-os.lisp OS-COLD-INIT-OR-REINIT"))
+  (/show0 "leaving linux-os.lisp OS-COLD-INIT-OR-REINIT"))
 
 ;;; Return system time, user time and number of page faults.
 (defun get-system-info ()

Index: target-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- target-alieneval.lisp	19 Aug 2003 13:04:40 -0000	1.24
+++ target-alieneval.lisp	30 Nov 2003 15:49:04 -0000	1.25
@@ -137,7 +137,7 @@
 				`((setq ,symbol ,initial-value)))
 			    ,@body)))))
 		    (:extern
-		     (/show ":EXTERN case")
+		     (/show0 ":EXTERN case")
 		     (let ((info (make-heap-alien-info
 				  :type alien-type
 				  :sap-form `(foreign-symbol-address
@@ -146,7 +146,7 @@
 			  ((,symbol (%heap-alien ',info)))
 			  ,@body))))
 		    (:local
-		     (/show ":LOCAL case")
+		     (/show0 ":LOCAL case")
 		     (let ((var (gensym))
 			   (initval (if initial-value (gensym)))
 			   (info (make-local-alien-info :type alien-type)))
@@ -164,7 +164,7 @@
 			       (dispose-local-alien ',info ,var))))))))))))
     (/show "revised" body)
     (verify-local-auxiliaries-okay)
-    (/show "back from VERIFY-LOCAL-AUXILIARIES-OK, returning")
+    (/show0 "back from VERIFY-LOCAL-AUXILIARIES-OK, returning")
     `(symbol-macrolet ((&auxiliary-type-definitions&
 			,(append *new-auxiliary-types*
 				 (auxiliary-type-definitions env))))

Index: target-signal.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-signal.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- target-signal.lisp	29 Nov 2003 00:35:40 -0000	1.19
+++ target-signal.lisp	30 Nov 2003 15:49:04 -0000	1.20
@@ -91,7 +91,7 @@
     `(defun ,name (signal info context)
        (declare (ignore signal info))
        (declare (type system-area-pointer context))
-       (/show "in Lisp-level signal handler" (sap-int context))
+       (/show "in Lisp-level signal handler" ,(symbol-name name) (sap-int context))
        (,function ,(concatenate 'simple-string what " at #X~X")
 		  (with-alien ((context (* os-context-t) context))
 		    (sap-int (sb!vm:context-pc context)))))))