Permalink
Browse files

Update to 0.6.3

git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-fad@4455 4281704c-cde7-0310-8518-8e2dc76b1ff0
  • Loading branch information...
1 parent fad8525 commit d88e2e4e1393f64c8e9bf92b2be0c0d4efbe4fda Edi Weitz committed Sep 30, 2009
Showing with 33 additions and 40 deletions.
  1. +4 −0 CHANGELOG
  2. +9 −10 cl-fad.asd
  3. +2 −2 corman.lisp
  4. +2 −2 doc/index.html
  5. +8 −18 fad.lisp
  6. +2 −2 load.lisp
  7. +2 −2 openmcl.lisp
  8. +2 −2 packages.lisp
  9. +2 −2 test.lisp
View
@@ -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)
View
@@ -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))
View
@@ -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
View
@@ -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&nbsp;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>
View
@@ -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 @@ signaled if the directory DIRNAME does not exist."
(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,20 +218,11 @@ checked for compatibility of their types."
(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))))
- (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)
+ (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))
(defun copy-file (from to &key overwrite)
View
@@ -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
View
@@ -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
View
@@ -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
View
@@ -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

0 comments on commit d88e2e4

Please sign in to comment.