r7061: initial property settings

diff --git a/Makefile b/Makefile
index 524c6bdccca29f2e5b76137623809e7fad40915e..595ea92fd25b40505fc4ccae6136e420aa3993a1 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg, M.D.
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.51 2002/10/01 17:05:29 kevin Exp $
+#  CVS Id:   $Id$
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #

diff --git a/benchmarks/allocation.lisp b/benchmarks/allocation.lisp
index 4b24bc71d22ea66fe1f0b040b8c6fdb090c9c9ff..dbdaa2395d335893766305b831fe6188a9506554 100644 (file)
--- a/benchmarks/allocation.lisp
+++ b/benchmarks/allocation.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: allocation.lisp,v 1.2 2003/04/29 19:51:20 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/doc/Makefile b/doc/Makefile
index 73c3af429451881849130f1a8634e306b338de6d..59523753f52a6b9ae20b2fc51a6b65c1807416b7 100644 (file)
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.29 2002/08/02 14:39:44 kevin Exp $
+#  CVS Id:   $Id$
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #

diff --git a/examples/Makefile b/examples/Makefile
index 530655a22d27b89d12e2ec5e884b20e41502b6a4..cce6380850b7410a53497e9bd53b5eef1460abc9 100644 (file)
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.18 2002/12/03 06:58:39 kevin Exp $
+#  CVS Id:   $Id$
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #

diff --git a/examples/acl-compat-tester.lisp b/examples/acl-compat-tester.lisp
index d777311e2942b57e04edc35a23fc583602d0498e..3b408d1040b8122a464953b7335534da6f002c98 100644 (file)
--- a/examples/acl-compat-tester.lisp
+++ b/examples/acl-compat-tester.lisp
@@ -24,7 +24,7 @@
 ;; Place, Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;;; from the original ACL 6.1 sources:
-;; $Id: acl-compat-tester.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;; $Id$
 
 
 (defpackage :util.test

diff --git a/examples/arrays.lisp b/examples/arrays.lisp
index 1bc438f623cb6ba2aa853bf03a50d95a58b95dcc..ed8046284589a0155aa855e65a4caa53a8d205d6 100644 (file)
--- a/examples/arrays.lisp
+++ b/examples/arrays.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: arrays.lisp,v 1.2 2002/12/03 06:58:39 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/atoifl.lisp b/examples/atoifl.lisp
index 47c194cf9e4fe5f9430ccb746e245e5810b31018..7ea944d05f62fe71334b145628eaa0a98f33f4b8 100644 (file)
--- a/examples/atoifl.lisp
+++ b/examples/atoifl.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: atoifl.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/c-test-fns.c b/examples/c-test-fns.c
index 20a5c2febde461a29c09c29abef1cf356dadbbdf..fdc17b8ea38717203f3ea23d25b4732de38149de 100644 (file)
--- a/examples/c-test-fns.c
+++ b/examples/c-test-fns.c
@@ -6,7 +6,7 @@
  *  Programer:    Kevin M. Rosenberg
  *  Date Started: Mar 2002
  *
- *  CVS Id:   $Id: c-test-fns.c,v 1.5 2002/03/21 10:06:52 kevin Exp $
+ *  CVS Id:   $Id$
  *
  * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
  *

diff --git a/examples/c-test-fns.lisp b/examples/c-test-fns.lisp
index 4ff8fb90ea24632fd6b0240349418dad6a8f7908..f24d5cc29293840112393e2e8ea869ecd2987ddb 100644 (file)
--- a/examples/c-test-fns.lisp
+++ b/examples/c-test-fns.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: c-test-fns.lisp,v 1.4 2002/11/18 04:53:31 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/compress.lisp b/examples/compress.lisp
index 02c8cd292fe5500a655f48bff9ee87c368856a47..10634a3ea0ece15d6b9897d38390a176f67244f0 100644 (file)
--- a/examples/compress.lisp
+++ b/examples/compress.lisp
@@ -1,119 +1,119 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-\r
-;;;; *************************************************************************\r
-;;;; FILE IDENTIFICATION\r
-;;;;\r
-;;;; Name:          compress.cl\r
-;;;; Purpose:       UFFI Example file for zlib compression\r
-;;;; Programmer:    Kevin M. Rosenberg\r
-;;;; Date Started:  Feb 2002\r
-;;;;\r
-;;;; $Id: compress.lisp,v 1.4 2003/03/10 17:37:05 kevin Exp $\r
-;;;;\r
-;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg\r
-;;;;\r
-;;;; UFFI users are granted the rights to distribute and use this software\r
-;;;; as governed by the terms of the Lisp Lesser GNU Public License\r
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.\r
-;;;; *************************************************************************\r
-\r
-(in-package :cl-user)\r
-\r
-(eval-when (:load-toplevel :execute)\r
-  (unless (uffi:load-foreign-library\r
-          #-(or macosx darwin)\r
-          (uffi:find-foreign-library\r
-           "libz"\r
-           '("/usr/local/lib/" "/usr/lib/" "/zlib/")\r
-           :types '("so" "a"))\r
-          #+(or macosx darwin)\r
-          (uffi:find-foreign-library "z"\r
-                                     `(,(pathname-directory *load-pathname*)))\r
-          :module "zlib" \r
-          :supporting-libraries '("c"))\r
-    (warn "Unable to load zlib")))\r
-  \r
-(uffi:def-function ("compress" c-compress)\r
-    ((dest (* :unsigned-char))\r
-     (destlen (* :long))\r
-     (source :cstring)\r
-     (source-len :long))\r
-  :returning :int\r
-  :module "zlib")\r
-  \r
-(defun compress (source)\r
-  "Returns two values: array of bytes containing the compressed data\r
- and the numbe of compressed bytes"\r
-  (let* ((sourcelen (length source))\r
-        (destsize (+ 12 (ceiling (* sourcelen 1.01))))\r
-        (dest (uffi:allocate-foreign-string destsize :unsigned t))\r
-        (destlen (uffi:allocate-foreign-object :long)))\r
-    (setf (uffi:deref-pointer destlen :long) destsize)\r
-    (uffi:with-cstring (source-native source)\r
-      (let ((result (c-compress dest destlen source-native sourcelen))\r
-           (newdestlen (uffi:deref-pointer destlen :long)))\r
-       (unwind-protect\r
-           (if (zerop result)\r
-               (values (uffi:convert-from-foreign-string \r
-                        dest\r
-                        :length newdestlen\r
-                        :null-terminated-p nil)\r
-                       newdestlen)\r
-             (error "zlib error, code ~D" result))\r
-         (progn\r
-           (uffi:free-foreign-object destlen)\r
-           (uffi:free-foreign-object dest)))))))\r
-\r
-(uffi:def-function ("uncompress" c-uncompress)\r
-    ((dest (* :unsigned-char))\r
-     (destlen (* :long))\r
-     (source :cstring)\r
-     (source-len :long))\r
-  :returning :int\r
-  :module "zlib")\r
-\r
-(defun uncompress (source)\r
-  (let* ((sourcelen (length source))\r
-        (destsize 200000)  ;adjust as needed\r
-        (dest (uffi:allocate-foreign-string destsize :unsigned t))\r
-        (destlen (uffi:allocate-foreign-object :long)))\r
-    (setf (uffi:deref-pointer destlen :long) destsize)\r
-    (uffi:with-cstring (source-native source)\r
-      (let ((result (c-uncompress dest destlen source-native sourcelen))\r
-           (newdestlen (uffi:deref-pointer destlen :long)))\r
-       (unwind-protect\r
-            (if (zerop result)\r
-                (uffi:convert-from-foreign-string \r
-                 dest\r
-                 :length newdestlen\r
-                 :null-terminated-p nil)\r
-                (error "zlib error, code ~D" result))\r
-         (progn\r
-           (uffi:free-foreign-object destlen)\r
-           (uffi:free-foreign-object dest)))))))\r
-\r
-#+examples-uffi\r
-(progn\r
-  (flet ((print-results (str)\r
-          (multiple-value-bind (compressed len) (compress str)\r
-            (let ((*print-length* nil))\r
-              (format t "~&(compress ~S) => " str)\r
-              (format t "~S~%" (map 'list #'char-code compressed))))))\r
-    (print-results "")\r
-    (print-results "test")\r
-    (print-results "test2")))\r
-\r
-#+test-uffi\r
-(progn\r
-  (flet ((test-compress (str)\r
-          (multiple-value-bind (compressed len) (compress str)\r
-            (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
-              (util.test:test str uncompressed :test #'string=\r
-                              :fail-info "Error uncompressing a compressed string")))))\r
-    (test-compress "")\r
-    (test-compress "test")\r
-    (test-compress "test2")))\r
-\r
-;; Results of the above on my system:\r
-;; (compress "") => 789c300001,8\r
-;; (compress "test") => 789c2b492d2e1045d1c1,12\r
-;; (compress "test2") => 789c2b492d2e31206501f3,13\r
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          compress.cl
+;;;; Purpose:       UFFI Example file for zlib compression
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Feb 2002
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;;
+;;;; UFFI users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
+
+(in-package :cl-user)
+
+(eval-when (:load-toplevel :execute)
+  (unless (uffi:load-foreign-library
+          #-(or macosx darwin)
+          (uffi:find-foreign-library
+           "libz"
+           '("/usr/local/lib/" "/usr/lib/" "/zlib/")
+           :types '("so" "a"))
+          #+(or macosx darwin)
+          (uffi:find-foreign-library "z"
+                                     `(,(pathname-directory *load-pathname*)))
+          :module "zlib" 
+          :supporting-libraries '("c"))
+    (warn "Unable to load zlib")))
+  
+(uffi:def-function ("compress" c-compress)
+    ((dest (* :unsigned-char))
+     (destlen (* :long))
+     (source :cstring)
+     (source-len :long))
+  :returning :int
+  :module "zlib")
+  
+(defun compress (source)
+  "Returns two values: array of bytes containing the compressed data
+ and the numbe of compressed bytes"
+  (let* ((sourcelen (length source))
+        (destsize (+ 12 (ceiling (* sourcelen 1.01))))
+        (dest (uffi:allocate-foreign-string destsize :unsigned t))
+        (destlen (uffi:allocate-foreign-object :long)))
+    (setf (uffi:deref-pointer destlen :long) destsize)
+    (uffi:with-cstring (source-native source)
+      (let ((result (c-compress dest destlen source-native sourcelen))
+           (newdestlen (uffi:deref-pointer destlen :long)))
+       (unwind-protect
+           (if (zerop result)
+               (values (uffi:convert-from-foreign-string 
+                        dest
+                        :length newdestlen
+                        :null-terminated-p nil)
+                       newdestlen)
+             (error "zlib error, code ~D" result))
+         (progn
+           (uffi:free-foreign-object destlen)
+           (uffi:free-foreign-object dest)))))))
+
+(uffi:def-function ("uncompress" c-uncompress)
+    ((dest (* :unsigned-char))
+     (destlen (* :long))
+     (source :cstring)
+     (source-len :long))
+  :returning :int
+  :module "zlib")
+
+(defun uncompress (source)
+  (let* ((sourcelen (length source))
+        (destsize 200000)  ;adjust as needed
+        (dest (uffi:allocate-foreign-string destsize :unsigned t))
+        (destlen (uffi:allocate-foreign-object :long)))
+    (setf (uffi:deref-pointer destlen :long) destsize)
+    (uffi:with-cstring (source-native source)
+      (let ((result (c-uncompress dest destlen source-native sourcelen))
+           (newdestlen (uffi:deref-pointer destlen :long)))
+       (unwind-protect
+            (if (zerop result)
+                (uffi:convert-from-foreign-string 
+                 dest
+                 :length newdestlen
+                 :null-terminated-p nil)
+                (error "zlib error, code ~D" result))
+         (progn
+           (uffi:free-foreign-object destlen)
+           (uffi:free-foreign-object dest)))))))
+
+#+examples-uffi
+(progn
+  (flet ((print-results (str)
+          (multiple-value-bind (compressed len) (compress str)
+            (let ((*print-length* nil))
+              (format t "~&(compress ~S) => " str)
+              (format t "~S~%" (map 'list #'char-code compressed))))))
+    (print-results "")
+    (print-results "test")
+    (print-results "test2")))
+
+#+test-uffi
+(progn
+  (flet ((test-compress (str)
+          (multiple-value-bind (compressed len) (compress str)
+            (multiple-value-bind (uncompressed len2) (uncompress compressed)
+              (util.test:test str uncompressed :test #'string=
+                              :fail-info "Error uncompressing a compressed string")))))
+    (test-compress "")
+    (test-compress "test")
+    (test-compress "test2")))
+
+;; Results of the above on my system:
+;; (compress "") => 789c300001,8
+;; (compress "test") => 789c2b492d2e1045d1c1,12
+;; (compress "test2") => 789c2b492d2e31206501f3,13

diff --git a/examples/file-socket.lisp b/examples/file-socket.lisp
index 67fe8869a0aa3a044d633eb39a5c0b422ad9a50c..58ef17c9d04acc527edf6e51bee9943b5a9b32af 100644 (file)
--- a/examples/file-socket.lisp
+++ b/examples/file-socket.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jul 2002
 ;;;;
-;;;; $Id: file-socket.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/getenv.lisp b/examples/getenv.lisp
index 17d2758be1fe504343b059da0a7c2f346f717f0c..72201e240b8ec710d2e3646af582e3eb4750023b 100644 (file)
--- a/examples/getenv.lisp
+++ b/examples/getenv.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: getenv.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/gethostname.lisp b/examples/gethostname.lisp
index a6e1b0e1afe7c33686d9de534c52f5d85fdabaa5..2f9a261e8dc2fe3bc97c772a29b9faf1d23e6e6f 100644 (file)
--- a/examples/gethostname.lisp
+++ b/examples/gethostname.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.lisp,v 1.3 2002/12/02 13:21:43 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/getshells.lisp b/examples/getshells.lisp
index 1b05d1009d1e4bcc06beebd69cf5a887719f338f..c28270695a146650cfdc2b9284f223949fd84ddc 100644 (file)
--- a/examples/getshells.lisp
+++ b/examples/getshells.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: getshells.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/gettime.lisp b/examples/gettime.lisp
index 37461ffa87c200f0061a7b4bb421870665752ebf..7707f647c2c306f042a1a93a8c65ec2c5414e63b 100644 (file)
--- a/examples/gettime.lisp
+++ b/examples/gettime.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gettime.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/run-examples.lisp b/examples/run-examples.lisp
index 7e80a3fd99d9d7a90051941af97ed3a5102e9e67..c6414e8e26742c81cae0daaaf23a5fcd05b1f1e2 100644 (file)
--- a/examples/run-examples.lisp
+++ b/examples/run-examples.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: run-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/strtol.lisp b/examples/strtol.lisp
index c2956e37363f004e7170fb00a35a50c752e2e3f8..2d54b8ba82ecd6c6f14b5db92687a1224813bcb7 100644 (file)
--- a/examples/strtol.lisp
+++ b/examples/strtol.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: strtol.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/test-examples.lisp b/examples/test-examples.lisp
index 5f780d44558cbb93971ab3c4684185953c3c833e..11159410606a2cba3d1a97133ccc2e9e08576ff4 100644 (file)
--- a/examples/test-examples.lisp
+++ b/examples/test-examples.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: test-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/examples/union.lisp b/examples/union.lisp
index 2e186d84e8f0119050b74ca9ed75157981921b2b..df2507b71ec8addbbcde6b6287d5b7ed618e23d5 100644 (file)
--- a/examples/union.lisp
+++ b/examples/union.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: union.lisp,v 1.3 2002/12/09 16:30:20 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/aggregates.lisp b/src/aggregates.lisp
index cea43e687aaaa0592a0917781cbc1d584ce39eb1..3fcb410c6702918ed727e6c1c56f208597b51a83 100644 (file)
--- a/src/aggregates.lisp
+++ b/src/aggregates.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: aggregates.lisp,v 1.9 2003/08/26 13:29:31 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/corman/getenv-ccl.lisp b/src/corman/getenv-ccl.lisp
index fa328615ee0fa2ae22048670837a806821454e6f..25cdfab0af49370e6a265e713ab38756c4d199f5 100644 (file)
--- a/src/corman/getenv-ccl.lisp
+++ b/src/corman/getenv-ccl.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    "Joe Marshall" <prunesquallor@attbi.com>
 ;;;; Date Started:  Feb 2002
 ;;;;
-`;;;; $Id: getenv-ccl.lisp,v 1.1 2002/10/01 17:05:29 kevin Exp $
+`;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/functions.lisp b/src/functions.lisp
index 9469945367265763b5814df2023dfebd351b8e05..7f0939d5afe2dd20fdcf7d7264096483a39e51fb 100644 (file)
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: functions.lisp,v 1.8 2003/06/06 21:59:18 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/libraries.lisp b/src/libraries.lisp
index 592f08ca1f0d0db7f4ec9b69763595e74aa5955d..8fa6612477f727c40ee4afb924d682ff0892a74f 100644 (file)
--- a/src/libraries.lisp
+++ b/src/libraries.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: libraries.lisp,v 1.13 2003/08/27 20:02:59 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/objects.lisp b/src/objects.lisp
index 62f153ee4d659b37ff371c3a499c0fb4e9fef872..dc382f52627ff41022aa43ce34a15bcfd030dd44 100644 (file)
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: objects.lisp,v 1.20 2003/08/23 01:05:53 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/os.lisp b/src/os.lisp
index 3e3a60b1d9676d0dc3ddfa975c48ed53cdb727cb..a95bb6122ae1fe1dbce3359d5541cc01a2d05106 100644 (file)
--- a/src/os.lisp
+++ b/src/os.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002 
 ;;;;
-;;;; $Id: os.lisp,v 1.5 2003/06/06 21:59:18 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg.
 ;;;; Much of this code was taken from other open source project and copyright

diff --git a/src/primitives.lisp b/src/primitives.lisp
index 73027ef4c37798c83656dcd536f437f8b2a160b4..007355c316209082abc7d6d22886cfe297b3403a 100644 (file)
--- a/src/primitives.lisp
+++ b/src/primitives.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: primitives.lisp,v 1.12 2003/08/15 02:34:34 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/readmacros-mcl.lisp b/src/readmacros-mcl.lisp
index 4eeffb21d9be7b173a682ecea9a586f9fd6d7062..89f3551a99795a89bd68529454279287a9c6fa47 100644 (file)
--- a/src/readmacros-mcl.lisp
+++ b/src/readmacros-mcl.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg/John Desoi
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: readmacros-mcl.lisp,v 1.4 2003/06/06 21:59:18 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/src/strings.lisp b/src/strings.lisp
index a8cbf8bdcd3937707cf90f2119a0c14612680dc3..250df2e67734ba18bcaa27b274e606977ea411c4 100644 (file)
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: strings.lisp,v 1.10 2003/07/18 21:33:26 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/Makefile b/tests/Makefile
index fe0bae194a2a2cad6dde7d6022894cb1dfd1531e..09e6e396ecca354baed697be2baca658c00e70b6 100644 (file)
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.24 2003/09/01 02:45:39 kevin Exp $
+#  CVS Id:   $Id$
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #

diff --git a/tests/arrays.lisp b/tests/arrays.lisp
index 641996ca4dddd2cc667dd9872a087dae6f99c0ea..e018083d43f00ec7be45d2eb4af1e4d3e62c86b4 100644 (file)
--- a/tests/arrays.lisp
+++ b/tests/arrays.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: arrays.lisp,v 1.5 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp
index b5cc75b2c70490de52dba3ae0cb676c46cbd2f80..8d65aa52d24794eaad30f13f960dfa2359afb5ce 100644 (file)
--- a/tests/atoifl.lisp
+++ b/tests/atoifl.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: atoifl.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/casts.lisp b/tests/casts.lisp
index ae5ece40dafb0483a6be2c9389f77bfe876e2e79..a6654599a6ff92fa2ee9f5064c1c956c7ee92df2 100644 (file)
--- a/tests/casts.lisp
+++ b/tests/casts.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg / Edi Weitz
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: casts.lisp,v 1.2 2003/08/14 21:40:13 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; *************************************************************************
 

diff --git a/tests/compress.lisp b/tests/compress.lisp
index 5bb6e3d05f7e5fc129d6472b3ce107d458ea853b..173d3e8f076316aef9b309278632d620e964e24a 100644 (file)
--- a/tests/compress.lisp
+++ b/tests/compress.lisp
@@ -1,94 +1,94 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-\r
-;;;; *************************************************************************\r
-;;;; FILE IDENTIFICATION\r
-;;;;\r
-;;;; Name:          compress.lisp\r
-;;;; Purpose:       UFFI Example file for zlib compression\r
-;;;; Author:        Kevin M. Rosenberg\r
-;;;; Date Started:  Feb 2002\r
-;;;;\r
-;;;; $Id: compress.lisp,v 1.12 2003/08/13 18:53:42 kevin Exp $\r
-;;;;\r
-;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg\r
-;;;;\r
-;;;; *************************************************************************\r
-\r
-(in-package #:uffi-tests)\r
-\r
-(uffi:def-function ("compress" c-compress)\r
-    ((dest (* :unsigned-char))\r
-     (destlen (* :long))\r
-     (source :cstring)\r
-     (source-len :long))\r
-  :returning :int\r
-  :module "zlib")\r
-  \r
-(defun compress (source)\r
-  "Returns two values: array of bytes containing the compressed data\r
- and the numbe of compressed bytes"\r
-  (let* ((sourcelen (length source))\r
-        (destsize (+ 12 (ceiling (* sourcelen 1.01))))\r
-        (dest (uffi:allocate-foreign-string destsize :unsigned t))\r
-        (destlen (uffi:allocate-foreign-object :long)))\r
-    (setf (uffi:deref-pointer destlen :long) destsize)\r
-    (uffi:with-cstring (source-native source)\r
-      (let ((result (c-compress dest destlen source-native sourcelen))\r
-           (newdestlen (uffi:deref-pointer destlen :long)))\r
-       (unwind-protect\r
-           (if (zerop result)\r
-               (values (uffi:convert-from-foreign-string \r
-                        dest\r
-                        :length newdestlen\r
-                        :null-terminated-p nil)\r
-                       newdestlen)\r
-             (error "zlib error, code ~D" result))\r
-         (progn\r
-           (uffi:free-foreign-object destlen)\r
-           (uffi:free-foreign-object dest)))))))\r
-\r
-(uffi:def-function ("uncompress" c-uncompress)\r
-    ((dest (* :unsigned-char))\r
-     (destlen (* :long))\r
-     (source :cstring)\r
-     (source-len :long))\r
-  :returning :int\r
-  :module "zlib")\r
-\r
-(defun uncompress (source)\r
-  (let* ((sourcelen (length source))\r
-        (destsize 200000)  ;adjust as needed\r
-        (dest (uffi:allocate-foreign-string destsize :unsigned t))\r
-        (destlen (uffi:allocate-foreign-object :long)))\r
-    (setf (uffi:deref-pointer destlen :long) destsize)\r
-    (uffi:with-cstring (source-native source)\r
-      (let ((result (c-uncompress dest destlen source-native sourcelen))\r
-           (newdestlen (uffi:deref-pointer destlen :long)))\r
-       (unwind-protect\r
-            (if (zerop result)\r
-                (uffi:convert-from-foreign-string \r
-                 dest\r
-                 :length newdestlen\r
-                 :null-terminated-p nil)\r
-                (error "zlib error, code ~D" result))\r
-         (progn\r
-           (uffi:free-foreign-object destlen)\r
-           (uffi:free-foreign-object dest)))))))\r
-\r
-(deftest compress.1 (map 'list #'char-code (compress ""))\r
-  (120 156 3 0 0 0 0 1))\r
-(deftest compress.2 (map 'list #'char-code  (compress "test"))\r
-  (120 156 43 73 45 46 1 0 4 93 1 193))\r
-(deftest compress.3 (map 'list #'char-code (compress "test2"))\r
-  (120 156 43 73 45 46 49 2 0 6 80 1 243))\r
-\r
-(defun compress-uncompress (str)\r
-  (multiple-value-bind (compressed len) (compress str)\r
-    (declare (ignore len))\r
-    (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
-      (declare (ignore len2))\r
-      uncompressed)))\r
-\r
-\r
-(deftest uncompress.1 "" "")\r
-(deftest uncompress.2 "test" "test")\r
-(deftest uncompress.3 "test2" "test2")\r
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          compress.lisp
+;;;; Purpose:       UFFI Example file for zlib compression
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Feb 2002
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
+;;;;
+;;;; *************************************************************************
+
+(in-package #:uffi-tests)
+
+(uffi:def-function ("compress" c-compress)
+    ((dest (* :unsigned-char))
+     (destlen (* :long))
+     (source :cstring)
+     (source-len :long))
+  :returning :int
+  :module "zlib")
+  
+(defun compress (source)
+  "Returns two values: array of bytes containing the compressed data
+ and the numbe of compressed bytes"
+  (let* ((sourcelen (length source))
+        (destsize (+ 12 (ceiling (* sourcelen 1.01))))
+        (dest (uffi:allocate-foreign-string destsize :unsigned t))
+        (destlen (uffi:allocate-foreign-object :long)))
+    (setf (uffi:deref-pointer destlen :long) destsize)
+    (uffi:with-cstring (source-native source)
+      (let ((result (c-compress dest destlen source-native sourcelen))
+           (newdestlen (uffi:deref-pointer destlen :long)))
+       (unwind-protect
+           (if (zerop result)
+               (values (uffi:convert-from-foreign-string 
+                        dest
+                        :length newdestlen
+                        :null-terminated-p nil)
+                       newdestlen)
+             (error "zlib error, code ~D" result))
+         (progn
+           (uffi:free-foreign-object destlen)
+           (uffi:free-foreign-object dest)))))))
+
+(uffi:def-function ("uncompress" c-uncompress)
+    ((dest (* :unsigned-char))
+     (destlen (* :long))
+     (source :cstring)
+     (source-len :long))
+  :returning :int
+  :module "zlib")
+
+(defun uncompress (source)
+  (let* ((sourcelen (length source))
+        (destsize 200000)  ;adjust as needed
+        (dest (uffi:allocate-foreign-string destsize :unsigned t))
+        (destlen (uffi:allocate-foreign-object :long)))
+    (setf (uffi:deref-pointer destlen :long) destsize)
+    (uffi:with-cstring (source-native source)
+      (let ((result (c-uncompress dest destlen source-native sourcelen))
+           (newdestlen (uffi:deref-pointer destlen :long)))
+       (unwind-protect
+            (if (zerop result)
+                (uffi:convert-from-foreign-string 
+                 dest
+                 :length newdestlen
+                 :null-terminated-p nil)
+                (error "zlib error, code ~D" result))
+         (progn
+           (uffi:free-foreign-object destlen)
+           (uffi:free-foreign-object dest)))))))
+
+(deftest compress.1 (map 'list #'char-code (compress ""))
+  (120 156 3 0 0 0 0 1))
+(deftest compress.2 (map 'list #'char-code  (compress "test"))
+  (120 156 43 73 45 46 1 0 4 93 1 193))
+(deftest compress.3 (map 'list #'char-code (compress "test2"))
+  (120 156 43 73 45 46 49 2 0 6 80 1 243))
+
+(defun compress-uncompress (str)
+  (multiple-value-bind (compressed len) (compress str)
+    (declare (ignore len))
+    (multiple-value-bind (uncompressed len2) (uncompress compressed)
+      (declare (ignore len2))
+      uncompressed)))
+
+
+(deftest uncompress.1 "" "")
+(deftest uncompress.2 "test" "test")
+(deftest uncompress.3 "test2" "test2")

diff --git a/tests/foreign-loader.lisp b/tests/foreign-loader.lisp
index 68fe923886a689929eb900d5c75c55d88a512a68..a611f8831d687ea86fb57e00069e8f89f9e72c57 100644 (file)
--- a/tests/foreign-loader.lisp
+++ b/tests/foreign-loader.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: foreign-loader.lisp,v 1.7 2003/08/27 19:58:25 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index af072c4fec884f1b0f4ac72942f198362e3afc02..ee9bd2256ea9f306d0b7c7f1d8f9af7a850cfcc6 100644 (file)
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -7,7 +7,7 @@
 ;;;; Authors:       Kevin M. Rosenberg and Edi Weitz
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: foreign-var.lisp,v 1.4 2003/08/15 02:50:24 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; *************************************************************************
 

diff --git a/tests/getenv.lisp b/tests/getenv.lisp
index aba9b6ebf7c173e0031fae677e82bd865f10f3b3..19fe1936ddf600b23a6804c18e0b68c7f3a93230 100644 (file)
--- a/tests/getenv.lisp
+++ b/tests/getenv.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: getenv.lisp,v 1.4 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index d05e2eaf30690c2dfaeb4770c655caadb469e3fb..ec019daed3de518c632bca87fd34e7cbf661ab61 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: gethostname.lisp,v 1.6 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/package.lisp b/tests/package.lisp
index 97f56a54befb88acbd2ec63e70e3cbb14fb77ad3..04c3b816ef79ca4d3d1885233f3b7c455b3765cc 100644 (file)
--- a/tests/package.lisp
+++ b/tests/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: package.lisp,v 1.2 2003/04/29 12:57:10 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:uffi-tests

diff --git a/tests/pointers.lisp b/tests/pointers.lisp
index 9f704ff54bd4b116f319167212b3102a7730f290..6af7f79f3ca8ee721097bef04b78555bace7f332 100644 (file)
--- a/tests/pointers.lisp
+++ b/tests/pointers.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: pointers.lisp,v 1.1 2003/08/14 19:35:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/strtol.lisp b/tests/strtol.lisp
index 0167dbf700bd823c00ab11e32ce7ed01c362b50d..c3bfe1393d936d0b064b12b3054ecf125399e866 100644 (file)
--- a/tests/strtol.lisp
+++ b/tests/strtol.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: strtol.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/structs.lisp b/tests/structs.lisp
index 8518eeca22073c7b3d6963af3cee99768e3582dc..6eb7577d4a3438a1b270fe2b05793793b53435f5 100644 (file)
--- a/tests/structs.lisp
+++ b/tests/structs.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: structs.lisp,v 1.2 2003/08/14 19:35:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/time.lisp b/tests/time.lisp
index 410d14c8174e8006f4290eff0d27834e11a642b3..279dee0ff495f4ca27e19c38a76e8662ced9f899 100644 (file)
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: time.lisp,v 1.3 2003/08/23 12:36:59 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/uffi-c-test-lib.c b/tests/uffi-c-test-lib.c
index 26884c638a6e20033ab37ec96adf27d5357afe03..ee1ab3a3f6fd6ddd542c3b65a823223285dc2a54 100644 (file)
--- a/tests/uffi-c-test-lib.c
+++ b/tests/uffi-c-test-lib.c
@@ -6,7 +6,7 @@
  *  Programer:    Kevin M. Rosenberg
  *  Date Started: Mar 2002
  *
- *  CVS Id:   $Id: uffi-c-test-lib.c,v 1.4 2003/08/15 02:34:34 kevin Exp $
+ *  CVS Id:   $Id$
  *
  * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
  *

diff --git a/tests/uffi-c-test-lib.lisp b/tests/uffi-c-test-lib.lisp
index 928b073ecabd948dc00b501424698c9126c5f064..14bca3178efc7cd7a38d173d823922ec96e77b65 100644 (file)
--- a/tests/uffi-c-test-lib.lisp
+++ b/tests/uffi-c-test-lib.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: uffi-c-test-lib.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/tests/union.lisp b/tests/union.lisp
index 7c4dc33d7ae5741d4f20292480715faa83b3e3bf..4268b91cdceff3da15ce0be14c80b15eeb654ce7 100644 (file)
--- a/tests/union.lisp
+++ b/tests/union.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: union.lisp,v 1.5 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
 ;;;;

diff --git a/uffi-tests.asd b/uffi-tests.asd
index ebfa88e8b86b99c6d7e2779d24fb4ee820ddb209..4b8417b6df6900064b4980fa1bc0acd178eaa911 100644 (file)
--- a/uffi-tests.asd
+++ b/uffi-tests.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: uffi-tests.asd,v 1.10 2003/08/14 21:40:13 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:uffi-tests-system

diff --git a/uffi.asd b/uffi.asd
index 84ae54d50eeb7a1dcce1a94ad757cc75d5228c7a..7acf7c0a135738b8426d31335cac4c7644dcce5a 100644 (file)
--- a/uffi.asd
+++ b/uffi.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: uffi.asd,v 1.28 2003/08/14 19:35:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;