Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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...
commit d88e2e4e1393f64c8e9bf92b2be0c0d4efbe4fda 1 parent fad8525
authored
4  CHANGELOG
... ...
@@ -1,3 +1,7 @@
  1
+Version 0.6.3
  2
+2009-09-30
  3
+Removed dependency on :SB-EXECUTABLE (thanks to Attila Lendvai and Tobias Rittweiler)
  4
+
1 5
 Version 0.6.2
2 6
 2008-03-12
3 7
 Never version of OpenMCL have %RMDIR (thanks to Dmitri Hrapof)
19  cl-fad.asd
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.19 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.21 2009/09/30 14:23:09 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions
@@ -28,13 +28,12 @@
28 28
 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 29
 
30 30
 #+:allegro (cl:require :osi)
31  
-#+:sbcl (cl:require :sb-executable)
32  
-#+:sbcl (cl:require :sb-posix)
33 31
 
34 32
 (asdf:defsystem #:cl-fad
35  
-    :version "0.6.2"
36  
-    :serial t
37  
-    :components ((:file "packages")
38  
-                 #+:cormanlisp (:file "corman")
39  
-                 #+:openmcl (:file "openmcl")
40  
-                 (:file "fad")))
  33
+  :version "0.6.3"
  34
+  :serial t
  35
+  :components ((:file "packages")
  36
+               #+:cormanlisp (:file "corman")
  37
+               #+:openmcl (:file "openmcl")
  38
+               (:file "fad"))
  39
+  :depends-on (#+sbcl :sb-posix))
4  corman.lisp
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.4 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.5 2009/09/30 14:23:09 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions
4  doc/index.html
@@ -73,7 +73,7 @@
73 73
 
74 74
 CL-FAD together with this documentation can be downloaded from <a
75 75
 href="http://weitz.de/files/cl-fad.tar.gz">http://weitz.de/files/cl-fad.tar.gz</a>. The
76  
-current version is 0.6.2.
  76
+current version is 0.6.3.
77 77
 <p>
78 78
 CL-FAD comes with simple system definitions for <a
79 79
 href="http://www.cliki.net/mk-defsystem">MK:DEFSYSTEM</a> and <a
@@ -235,7 +235,7 @@
235 235
 patches for OpenMCL, ECL, ABCL, MCL, and Scieneer&nbsp;CL.
236 236
 
237 237
 <p>
238  
-$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.32 2008/03/12 00:10:45 edi Exp $
  238
+$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.33 2009/09/30 14:23:12 edi Exp $
239 239
 <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a>
240 240
 
241 241
 </body>
26  fad.lisp
... ...
@@ -1,8 +1,8 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.33 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.35 2009/09/30 14:23:10 edi Exp $
3 3
 
4 4
 ;;; Copyright (c) 2004, Peter Seibel.  All rights reserved.
5  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  5
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
6 6
 
7 7
 ;;; Redistribution and use in source and binary forms, with or without
8 8
 ;;; modification, are permitted provided that the following conditions
@@ -205,9 +205,8 @@ signaled if the directory DIRNAME does not exist."
205 205
          (error "IF-DOES-NOT-EXIST must be one of :ERROR or :IGNORE."))))
206 206
     (values)))
207 207
 
208  
-#-:sbcl
209 208
 (defvar *stream-buffer-size* 8192)
210  
-#-:sbcl
  209
+
211 210
 (defun copy-stream (from to &optional (checkp t))
212 211
   "Copies into TO \(a stream) from FROM \(also a stream) until the end
213 212
 of FROM is reached, in blocks of *stream-buffer-size*.  The streams
@@ -219,20 +218,11 @@ checked for compatibility of their types."
219 218
   (let ((buf (make-array *stream-buffer-size*
220 219
                          :element-type (stream-element-type from))))
221 220
     (loop
222  
-     (let ((pos #-(or :clisp :cmu) (read-sequence buf from)
223  
-                #+:clisp (ext:read-byte-sequence buf from :no-hang nil)
224  
-                #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil)))
225  
-       (when (zerop pos) (return))
226  
-       (write-sequence buf to :end pos))))
227  
-  (values))
228  
-
229  
-#+:sbcl
230  
-(declaim (inline copy-stream))
231  
-#+:sbcl
232  
-(defun copy-stream (from to)
233  
-  "Copies into TO \(a stream) from FROM \(also a stream) until the end
234  
-of FROM is reached.  The streams should have the same element type."
235  
-  (sb-executable:copy-stream from to)
  221
+       (let ((pos #-(or :clisp :cmu) (read-sequence buf from)
  222
+                  #+:clisp (ext:read-byte-sequence buf from :no-hang nil)
  223
+                  #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil)))
  224
+         (when (zerop pos) (return))
  225
+         (write-sequence buf to :end pos))))
236 226
   (values))
237 227
 
238 228
 (defun copy-file (from to &key overwrite)
4  load.lisp
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.8 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.9 2009/09/30 14:23:10 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions
4  openmcl.lisp
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CCL; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.5 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.6 2009/09/30 14:23:10 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions
4  packages.lisp
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions
4  test.lisp
... ...
@@ -1,7 +1,7 @@
1 1
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD-TEST; Base: 10 -*-
2  
-;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $
  2
+;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $
3 3
 
4  
-;;; Copyright (c) 2004-2008, Dr. Edmund Weitz.  All rights reserved.
  4
+;;; Copyright (c) 2004-2009, Dr. Edmund Weitz.  All rights reserved.
5 5
 
6 6
 ;;; Redistribution and use in source and binary forms, with or without
7 7
 ;;; modification, are permitted provided that the following conditions

0 notes on commit d88e2e4

Please sign in to comment.
Something went wrong with that request. Please try again.