diff -Nru cl-kmrcl-1.106/byte-stream.lisp cl-kmrcl-1.109/byte-stream.lisp --- cl-kmrcl-1.106/byte-stream.lisp 2010-04-18 16:12:16.000000000 +0000 +++ cl-kmrcl-1.109/byte-stream.lisp 2015-08-30 00:21:02.000000000 +0000 @@ -94,12 +94,12 @@ #+sbcl (eval-when (:compile-toplevel :load-toplevel :execute) (sb-ext:without-package-locks - (defvar *system-copy-fn* (if (fboundp (intern "COPY-SYSTEM-AREA" "SB-KERNEL")) - (intern "COPY-SYSTEM-AREA" "SB-KERNEL") - (intern "COPY-SYSTEM-UB8-AREA" "SB-KERNEL"))) - (defconstant +system-copy-multiplier+ (if (fboundp (intern "COPY-FROM-SYSTEM-AREA" "SB-KERNEL")) - sb-vm:n-byte-bits - 1)))) + (sb-ext:without-package-locks + (defvar *system-copy-fn* (intern "SYSTEM-AREA-UB8-COPY" "SB-KERNEL")) + (defconstant +system-copy-multiplier+ + (if (fboundp (intern "COPY-UB8-FROM-SYSTEM-AREA" "SB-KERNEL")) + sb-vm:n-byte-bits + 1))))) #+(or cmu sbcl) (progn @@ -264,5 +264,3 @@ (end (length buffer))) (excl:make-buffer-input-stream buffer start end :octets)) ) ;; progn - - diff -Nru cl-kmrcl-1.106/ChangeLog cl-kmrcl-1.109/ChangeLog --- cl-kmrcl-1.106/ChangeLog 2011-04-01 16:47:54.000000000 +0000 +++ cl-kmrcl-1.109/ChangeLog 2015-08-30 00:21:58.000000000 +0000 @@ -1,3 +1,13 @@ +29 Aug 2015 Kevin Rosenberg + * Version 1.109 + * byte-stream.lisp: Update function names for SBCL + +28 Aug 2015 Kevin Rosenberg + * Version 1.107 + * processes.lisp: Update name of SBCL function call to + terminate-thread. + * impl.lisp: Update name of SBCL function call to sb-ext:exit + 1 Apr 2011 Kevin Rosenberg * Version 1.104 * listener.lisp: Add support for active sockets in listener @@ -39,7 +49,7 @@ 10 Sep 2007 Kevin Rosenberg * Version 1.96 * byte-stream.lisp: Use without-package-locks as suggested - by Daniel Gackle. + by Daniel Gackle. 01 Jun 2007 Kevin Rosenberg * Version 1.95 diff -Nru cl-kmrcl-1.106/debian/changelog cl-kmrcl-1.109/debian/changelog --- cl-kmrcl-1.106/debian/changelog 2011-07-02 17:04:22.000000000 +0000 +++ cl-kmrcl-1.109/debian/changelog 2015-08-30 00:21:02.000000000 +0000 @@ -1,3 +1,21 @@ +cl-kmrcl (1.109-1) unstable; urgency=medium + + * New upstream (closes:661957) + + -- Kevin M. Rosenberg Sat, 29 Aug 2015 18:20:13 -0600 + +cl-kmrcl (1.108-1) unstable; urgency=medium + + * New upstream + + -- Kevin M. Rosenberg Fri, 28 Aug 2015 23:57:22 -0600 + +cl-kmrcl (1.107-1) unstable; urgency=medium + + * New upstream + + -- Kevin M. Rosenberg Fri, 28 Aug 2015 23:49:18 -0600 + cl-kmrcl (1.106-1) unstable; urgency=low * New upstream diff -Nru cl-kmrcl-1.106/debian/control cl-kmrcl-1.109/debian/control --- cl-kmrcl-1.106/debian/control 2011-06-20 22:03:46.000000000 +0000 +++ cl-kmrcl-1.109/debian/control 2015-08-29 06:12:34.000000000 +0000 @@ -4,10 +4,10 @@ Maintainer: Kevin M. Rosenberg Build-Depends-Indep: dh-lisp Build-Depends: debhelper (>= 7.0.0) -Standards-Version: 3.9.2.0 -Homepage: http://files.b9.com/kmrcl/ -Vcs-Git: git://git.b9.com/kmrcl.git -Vcs-Browser: http://git.b9.com/?p=kmrcl.git +Standards-Version: 3.9.5.0 +Homepage: http://files.kpe.io/kmrcl/ +Vcs-Git: git://git.kpe.io/kmrcl.git +Vcs-Browser: http://git.kpe.io/?p=kmrcl.git Package: cl-kmrcl Architecture: all diff -Nru cl-kmrcl-1.106/debian/copyright cl-kmrcl-1.109/debian/copyright --- cl-kmrcl-1.106/debian/copyright 2009-08-03 15:02:10.000000000 +0000 +++ cl-kmrcl-1.109/debian/copyright 2015-08-29 06:12:34.000000000 +0000 @@ -1,7 +1,7 @@ This package was debianized by Kevin M. Rosenberg on Sat, 5 Oct 2002 13:19:33 -0600. -It was downloaded from http://files.b9.com/kmrcl +It was downloaded from http://files.kpe.io/kmrcl Upstream Author: Kevin M. Rosenberg diff -Nru cl-kmrcl-1.106/debian/watch cl-kmrcl-1.109/debian/watch --- cl-kmrcl-1.106/debian/watch 2009-08-03 15:01:03.000000000 +0000 +++ cl-kmrcl-1.109/debian/watch 2015-08-29 06:12:34.000000000 +0000 @@ -1,2 +1,2 @@ version=3 -http://files.b9.com/kmrcl/kmrcl-([\d\.]*)\.tar\.gz +http://files.kpe.io/kmrcl/kmrcl-([\d\.]*)\.tar\.gz diff -Nru cl-kmrcl-1.106/impl.lisp cl-kmrcl-1.109/impl.lisp --- cl-kmrcl-1.106/impl.lisp 2010-04-18 16:12:16.000000000 +0000 +++ cl-kmrcl-1.109/impl.lisp 2015-08-29 05:52:33.000000000 +0000 @@ -105,7 +105,7 @@ #+gcl (lisp:bye code) #+lispworks (lw:quit :status code) #+lucid (lcl:quit code) - #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1))) + #+sbcl (sb-ext:exit :code (typecase code (number code) (null 0) (t 1))) #+mcl (ccl:quit code) #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl) (error 'not-implemented :proc (list 'quit code))) diff -Nru cl-kmrcl-1.106/processes.lisp cl-kmrcl-1.109/processes.lisp --- cl-kmrcl-1.106/processes.lisp 2011-07-02 17:02:43.000000000 +0000 +++ cl-kmrcl-1.109/processes.lisp 2015-08-29 05:49:58.000000000 +0000 @@ -23,7 +23,7 @@ (defun destroy-process (process) #+cmu (mp:destroy-process process) #+allegro (mp:process-kill process) - #+sb-thread (sb-thread:destroy-thread process) + #+sb-thread (sb-thread:terminate-thread process) #+lispworks (mp:process-kill process) #+ccl (ccl:process-kill process) ) @@ -80,6 +80,3 @@ "Put thread to sleep for n seconds." #+allegro (mp:process-sleep n) #-allegro (sleep n)) - - - diff -Nru cl-kmrcl-1.106/README cl-kmrcl-1.109/README --- cl-kmrcl-1.106/README 2007-09-04 06:29:01.000000000 +0000 +++ cl-kmrcl-1.109/README 2015-08-29 06:12:34.000000000 +0000 @@ -1,6 +1,6 @@ KMRCL is a collection of utility functions. It is used as a base for some of Kevin M. Rosenberg's Common Lisp packages. -The web site for KMRCL is http://files.b9.com/kmrcl/ +The web site for KMRCL is http://files.kpe.io/kmrcl/ diff -Nru cl-kmrcl-1.106/xml-utils.lisp cl-kmrcl-1.109/xml-utils.lisp --- cl-kmrcl-1.106/xml-utils.lisp 2010-04-18 16:12:16.000000000 +0000 +++ cl-kmrcl-1.109/xml-utils.lisp 2015-08-29 05:56:22.000000000 +0000 @@ -81,6 +81,8 @@ (defun write-cdata (str s) (declare (simple-string str) (optimize (speed 3) (safety 0) (space 0))) + (unless str + (return-from write-cdata nil)) (do ((len (length str)) (i 0 (1+ i))) ((= i len) str) @@ -171,4 +173,3 @@ :organization organization :type type :label label :language language :url url :entities entities)) stream) -