Revision: 4455 Author: edi URL: http://bknr.net/trac/changeset/4455
Update to 0.6.3
U trunk/thirdparty/cl-fad/CHANGELOG U trunk/thirdparty/cl-fad/cl-fad.asd U trunk/thirdparty/cl-fad/corman.lisp U trunk/thirdparty/cl-fad/doc/index.html U trunk/thirdparty/cl-fad/fad.lisp U trunk/thirdparty/cl-fad/load.lisp U trunk/thirdparty/cl-fad/openmcl.lisp U trunk/thirdparty/cl-fad/packages.lisp U trunk/thirdparty/cl-fad/test.lisp
Modified: trunk/thirdparty/cl-fad/CHANGELOG =================================================================== --- trunk/thirdparty/cl-fad/CHANGELOG 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/CHANGELOG 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,3 +1,7 @@ +Version 0.6.3 +2009-09-30 +Removed dependency on :SB-EXECUTABLE (thanks to Attila Lendvai and Tobias Rittweiler) + Version 0.6.2 2008-03-12 Never version of OpenMCL have %RMDIR (thanks to Dmitri Hrapof)
Modified: trunk/thirdparty/cl-fad/cl-fad.asd =================================================================== --- trunk/thirdparty/cl-fad/cl-fad.asd 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/cl-fad.asd 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.19 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.21 2009/09/30 14:23:09 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -28,13 +28,12 @@ ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#+:allegro (cl:require :osi) -#+:sbcl (cl:require :sb-executable) -#+:sbcl (cl:require :sb-posix)
(asdf:defsystem #:cl-fad - :version "0.6.2" - :serial t - :components ((:file "packages") - #+:cormanlisp (:file "corman") - #+:openmcl (:file "openmcl") - (:file "fad"))) + :version "0.6.3" + :serial t + :components ((:file "packages") + #+:cormanlisp (:file "corman") + #+:openmcl (:file "openmcl") + (:file "fad")) + :depends-on (#+sbcl :sb-posix))
Modified: trunk/thirdparty/cl-fad/corman.lisp =================================================================== --- trunk/thirdparty/cl-fad/corman.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/corman.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.4 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.5 2009/09/30 14:23:09 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-fad/doc/index.html =================================================================== --- trunk/thirdparty/cl-fad/doc/index.html 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/doc/index.html 2009-09-30 14:33:59 UTC (rev 4455) @@ -73,7 +73,7 @@
CL-FAD together with this documentation can be downloaded from <a href="http://weitz.de/files/cl-fad.tar.gz">http://weitz.de/files/cl-fad.tar.gz</a>. The -current version is 0.6.2. +current version is 0.6.3. <p> CL-FAD comes with simple system definitions for <a href="http://www.cliki.net/mk-defsystem">MK:DEFSYSTEM</a> and <a @@ -235,7 +235,7 @@ patches for OpenMCL, ECL, ABCL, MCL, and Scieneer CL.
<p> -$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.32 2008/03/12 00:10:45 edi Exp $ +$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.33 2009/09/30 14:23:12 edi Exp $ <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a>
</body>
Modified: trunk/thirdparty/cl-fad/fad.lisp =================================================================== --- trunk/thirdparty/cl-fad/fad.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/fad.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,8 +1,8 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.33 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.35 2009/09/30 14:23:10 edi Exp $
;;; Copyright (c) 2004, Peter Seibel. All rights reserved. -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -205,9 +205,8 @@ (error "IF-DOES-NOT-EXIST must be one of :ERROR or :IGNORE.")))) (values)))
-#-:sbcl (defvar *stream-buffer-size* 8192) -#-:sbcl + (defun copy-stream (from to &optional (checkp t)) "Copies into TO (a stream) from FROM (also a stream) until the end of FROM is reached, in blocks of *stream-buffer-size*. The streams @@ -219,22 +218,13 @@ (let ((buf (make-array *stream-buffer-size* :element-type (stream-element-type from)))) (loop - (let ((pos #-(or :clisp :cmu) (read-sequence buf from) - #+:clisp (ext:read-byte-sequence buf from :no-hang nil) - #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil))) - (when (zerop pos) (return)) - (write-sequence buf to :end pos)))) + (let ((pos #-(or :clisp :cmu) (read-sequence buf from) + #+:clisp (ext:read-byte-sequence buf from :no-hang nil) + #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil))) + (when (zerop pos) (return)) + (write-sequence buf to :end pos)))) (values))
-#+:sbcl -(declaim (inline copy-stream)) -#+:sbcl -(defun copy-stream (from to) - "Copies into TO (a stream) from FROM (also a stream) until the end -of FROM is reached. The streams should have the same element type." - (sb-executable:copy-stream from to) - (values)) - (defun copy-file (from to &key overwrite) "Copies the file designated by the non-wild pathname designator FROM to the file designated by the non-wild pathname designator TO. If
Modified: trunk/thirdparty/cl-fad/load.lisp =================================================================== --- trunk/thirdparty/cl-fad/load.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/load.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.8 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.9 2009/09/30 14:23:10 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-fad/openmcl.lisp =================================================================== --- trunk/thirdparty/cl-fad/openmcl.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/openmcl.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CCL; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.5 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.6 2009/09/30 14:23:10 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-fad/packages.lisp =================================================================== --- trunk/thirdparty/cl-fad/packages.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/packages.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions
Modified: trunk/thirdparty/cl-fad/test.lisp =================================================================== --- trunk/thirdparty/cl-fad/test.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/test.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD-TEST; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved.
;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions