From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Mon, 9 Jun 2003 17:05:53 +0000 (+0000)
Subject: 0.8.0.55:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=35e4dd42b8cd765f88e5946b6aa0e7859b278399;p=sbcl.git

0.8.0.55:
	Contrib fixes for non-x86/non-linux
	... don't use GET-LISP-OBJ-ADDRESS on fixnums or characters;
	... don't try to define "posix" linux-specific functions
	also minor frobs
---

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index ce7031d..476b9eb 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -651,7 +651,7 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
 (defmethod inspected-description ((object fixnum))
   (description-maybe-internals "fixnum ~W" (list object)
 			       "[#x~8,'0X]"
-			       (sb-kernel:get-lisp-obj-address object)))
+			       (ash object (1- sb-vm:n-lowtag-bits))))
 
 (defmethod inspected-description ((object complex))
   (format nil "complex number ~W" object))
@@ -678,10 +678,14 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
   (format nil "ratio ~W" object))
 
 (defmethod inspected-description ((object character))
-  (description-maybe-internals "character ~W char-code #x~4,'0X"
+  ;; FIXME: This will need to change as and when we get more characters
+  ;; than just the 256 we have today.
+  (description-maybe-internals "character ~W char-code #x~2,'0X"
 			       (list object (char-code object))
 			       "[#x~8,'0X]"
-			       (sb-kernel:get-lisp-obj-address object)))
+			       (logior sb-vm:base-char-widetag 
+				       (ash (char-code object)
+					    sb-vm:n-widetag-bits))))
 
 (defmethod inspected-description ((object t))
   (format nil "a generic object ~W" object))
diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index a310e54..2aa9fdc 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -37,26 +37,26 @@
 ;;; uid, gid
 
 (define-call "geteuid" sb-posix::uid-t not)	;"always successful", it says
-(define-call "getresuid" sb-posix::uid-t not)
+#+linux (define-call "getresuid" sb-posix::uid-t not)
 (define-call "getuid" sb-posix::uid-t not)
 (define-call "seteuid" int minusp (uid sb-posix::uid-t))
 #+linux (define-call "setfsuid" int minusp (uid sb-posix::uid-t))
 (define-call "setreuid" int minusp
 	     (ruid sb-posix::uid-t) (euid sb-posix::uid-t))
-(define-call "setresuid" int minusp
+#+linux (define-call "setresuid" int minusp
 	     (ruid sb-posix::uid-t) (euid sb-posix::uid-t)
 	     (suid sb-posix::uid-t))
 (define-call "setuid" int minusp (uid sb-posix::uid-t))
 
 (define-call "getegid" sb-posix::gid-t not)
 (define-call "getgid" sb-posix::gid-t not)
-(define-call "getresgid" sb-posix::gid-t not)
+#+linux (define-call "getresgid" sb-posix::gid-t not)
 (define-call "setegid" int minusp (gid sb-posix::gid-t))
 #+linux (define-call "setfsgid" int minusp (gid sb-posix::gid-t))
 (define-call "setgid" int minusp (gid sb-posix::gid-t))
 (define-call "setregid" int minusp
 	     (rgid sb-posix::gid-t) (egid sb-posix::gid-t))
-(define-call "setresgid" int minusp
+#+linux (define-call "setresgid" int minusp
 	     (rgid sb-posix::gid-t)
 	     (egid sb-posix::gid-t) (sgid sb-posix::gid-t))
 
diff --git a/contrib/sb-simple-streams/simple-streams.lisp b/contrib/sb-simple-streams/simple-streams.lisp
index 47ab399..f83966b 100644
--- a/contrib/sb-simple-streams/simple-streams.lisp
+++ b/contrib/sb-simple-streams/simple-streams.lisp
@@ -240,7 +240,7 @@
         ;; Handle encapsulated stream.  FIXME: perhaps handle
         ;; sbcl-vintage ansi-stream type in read-octets too?
         (stream (read-octets fd buffer start end blocking))
-	(t (error "Don't know how to handle input handle &S" fd))))))
+	(t (error "Don't know how to handle input handle ~S" fd))))))
 
 (defun write-octets (stream buffer start end blocking)
   (declare (type simple-stream stream)
diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index a7ce184..b3bfefe 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -507,7 +507,7 @@
 ;;;; frames
 
 ;;; This is used in FIND-ESCAPED-FRAME and with the bogus components
-;;; and LRAs used for :FUN-END breakpoints. When a components
+;;; and LRAs used for :FUN-END breakpoints. When a component's
 ;;; debug-info slot is :BOGUS-LRA, then the REAL-LRA-SLOT contains the
 ;;; real component to continue executing, as opposed to the bogus
 ;;; component which appeared in some frame's LRA location.
diff --git a/version.lisp-expr b/version.lisp-expr
index 604f1b1..534f991 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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.8.0.54"
+"0.8.0.55"