Changeset version,1.0,2 for version/1.0/binary-class.lisp

Timestamp:

10/11/2007 10:07:03 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

binary-class

revision id:

dsowen@fugue88.ws-20071011220703-thggpvrpyjbgnmom

Message:

Switched to keywords for provided types.

File:

• version/1.0/binary-class.lisp (modified) (2 diffs)

version/1.0/binary-class.lisp

@@ -46 +46 @@
     (cond
       ((string= format "YYMMDD")
-       (let* ((year (read-binary 'unsigned stream))
-              (month (read-binary 'unsigned stream))
-              (day (read-binary 'unsigned stream)))
+       (let* ((year (read-binary :unsigned stream))
+              (month (read-binary :unsigned stream))
+              (day (read-binary :unsigned stream)))
          (encode-universal-time 0 0 0 day month year)))
       ((string= format "YYYYMMDD")
-       (let* ((year (read-binary 'unsigned stream 2))
-              (month (read-binary 'unsigned stream))
-              (day (read-binary 'unsigned stream)))
+       (let* ((year (read-binary :unsigned stream 2))
+              (month (read-binary :unsigned stream))
+              (day (read-binary :unsigned stream)))
          (encode-universal-time 0 0 0 day month year)))
       (t
@@ -75 +75 @@
                              `(setf (slot-value rec ',name)
                                     (read-binary ',type stream ,format))
-                             `(read-binary 'unsigned stream ,format))))
+                             `(read-binary :unsigned stream ,format))))
                      defs)
            rec)))))