[cl-dbf-cvs] CVS cl-dbf

[CVS User rklochkov]

Update of /project/cl-dbf/cvsroot/cl-dbf
In directory tiger.common-lisp.net:/tmp/cvs-serv2814

Modified Files:
	src.lisp 
Log Message:
Fixed read-record. Thanks to Rafael J. Alcántara Pérez


--- /project/cl-dbf/cvsroot/cl-dbf/src.lisp	2012/05/08 09:00:12	1.3
+++ /project/cl-dbf/cvsroot/cl-dbf/src.lisp	2012/05/31 02:45:17	1.4
@@ -147,6 +147,7 @@
     (t '(:code-page :id 437))))
 
 (defmethod read-record ((driver dbase3-header))
+  "Return record value as list and move to the next record"
   (with-slots (stream) driver
     (case (read-byte stream)
       (32 (loop 
@@ -158,7 +159,10 @@
                (flexi-streams:octets-to-string 
                 s 
                 :external-format (external-format driver)))))
-      (t nil))))
+      (t (file-position stream
+                        (+ (file-position stream)
+                           (1- (record-size driver))))
+         nil))))
 
 (defmacro with-db (db filespec &body body)
   (let ((stream (gensym)))