[bknr-cvs] edi changed trunk/thirdparty/cl-fad/
BKNR Commits
bknr at bknr.net
Wed Sep 30 14:33:59 UTC 2009
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
More information about the Bknr-cvs
mailing list