From: Christophe R. <cr...@us...> - 2008-05-06 16:43:59
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29646/src/code Modified Files: cross-byte.lisp gc.lisp late-extensions.lisp win32-pathname.lisp Log Message: 1.0.16.19: cleanups motivated by clisp host-2 Index: cross-byte.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/cross-byte.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- cross-byte.lisp 14 Jul 2005 16:30:14 -0000 1.3 +++ cross-byte.lisp 6 May 2008 16:43:52 -0000 1.4 @@ -39,11 +39,6 @@ (defun sb!xc:deposit-field (new cross-byte int) (cl:deposit-field new (uncross-byte cross-byte) int)) -(defun sb!c::mask-signed-field (size integer) - (if (logbitp (1- size) integer) - (dpb integer (byte size 0) -1) - (ldb (byte size 0) integer))) - (define-setf-expander sb!xc:ldb (cross-byte int &environment env) (multiple-value-bind (temps vals stores store-form access-form) (get-setf-expansion int env) Index: gc.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/gc.lisp,v retrieving revision 1.78 retrieving revision 1.79 diff -u -d -r1.78 -r1.79 --- gc.lisp 10 Jan 2008 11:32:48 -0000 1.78 +++ gc.lisp 6 May 2008 16:43:52 -0000 1.79 @@ -125,7 +125,7 @@ ;; See comment in interr.lisp *heap-exhausted-error-condition* (make-condition 'heap-exhausted-error))) -(declaim (ftype (function () unsigned-byte) get-bytes-consed)) +(declaim (ftype (sfunction () unsigned-byte) get-bytes-consed)) (defun get-bytes-consed () #!+sb-doc "Return the number of bytes consed since the program began. Typically Index: late-extensions.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/late-extensions.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- late-extensions.lisp 10 Jan 2008 11:32:48 -0000 1.16 +++ late-extensions.lisp 6 May 2008 16:43:52 -0000 1.17 @@ -126,6 +126,8 @@ (macrolet ((def (name lambda-list ref &optional set) `(defun ,name (,@lambda-list old new) #!+compare-and-swap-vops + (declare (ignore ref set)) + #!+compare-and-swap-vops (,name ,@lambda-list old new) #!-compare-and-swap-vops (let ((current (,ref ,@lambda-list))) Index: win32-pathname.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/win32-pathname.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- win32-pathname.lisp 10 Dec 2007 22:16:47 -0000 1.10 +++ win32-pathname.lisp 6 May 2008 16:43:52 -0000 1.11 @@ -272,8 +272,6 @@ (type (pathname-type pathname)) (type-present-p (typep type '(not (member nil :unspecific)))) (type-string (if type-present-p type ""))) - (when name-present-p - (setf as-file nil)) (coerce (with-output-to-string (s) (when device |