From 6957edb66dfc0b225b6588920b0477b9fcdc589b Mon Sep 17 00:00:00 2001 From: John Connors Date: Sun, 13 Jul 2008 12:31:23 +0100 Subject: [PATCH] Whole package compiles again --- file-lwo.lisp | 4 ++++ lodematron.asd | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/file-lwo.lisp b/file-lwo.lisp index 56d9068..29ee8ba 100644 --- a/file-lwo.lisp +++ b/file-lwo.lisp @@ -28,6 +28,8 @@ (setf (group-size-of self) (read-value 'u32 stream :endian :big)) (setf (group-type-of self) (read-value 'u32 stream :endian :big))) +(defgeneric group-size (group)) + (defmethod group-size ((group iff-group)) "Return the number of bytes to read after reading the group header." (- (group-size-of group) 4)) @@ -86,6 +88,8 @@ (setf (subchunk-size-of self) (read-value 'u16 stream :endian :big))) +(defgeneric iff-group-parser (group in-stream out-fn)) + ;; there are three kinds of top level groups in an iff file ;; FORM -- which is raw chunked data ;; LIST and CAT -- which are index collections of chunks or references to chunks diff --git a/lodematron.asd b/lodematron.asd index d958a2f..3e8d448 100644 --- a/lodematron.asd +++ b/lodematron.asd @@ -13,6 +13,5 @@ (:file "lodematron-rw" ) (:file "file-3ds") (:file "file-md2") -;; (:file "file-ifs") -;; (:file "file-lwo") -)) + (:file "file-ifs") + (:file "file-lwo"))) -- 2.11.4.GIT