X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=scratch.lisp;h=ab5e8e9979d98be86113ce3eda9d20edf860a747;hp=0627c41798a26d7ee124804c5d5cd941a68b703d;hb=007a52ce7b04a24281a7f713838c5c7aecd27e61;hpb=8784dcbc61a179a0a201645fc35d3dad608128d2

diff --git a/scratch.lisp b/scratch.lisp
index 0627c41..ab5e8e9 100644
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -15,9 +15,9 @@
 ;"value" 8 4 0 -1
 ;"name" 3 4 0 -1
 ;/2
-(defclass type ()
-  ((value :type 8 :flags 4 :len 0 :table nil)
-    (name :type 3 :flags 4 :len 0 :table nil)))
+(defclass meta-type ()
+  ((value :x-type 8 :x-flags 4 :x-len 0 :x-table nil)
+    (name :x-type 3 :x-flags 4 :x-len 0 :x-table nil)))
 
 ;; http://localhost:4242/eow/
 
@@ -35,3 +35,14 @@
 ;(klacks:peek-next *s*)
 ;(klacks:find-element *s* "entry")
 ;(klacks:serialize-element *s* (cxml-xmls:make-xmls-builder))
+
+;;;;;;;;;;;;;;;;;;
+
+(defclass meta-type ()
+  (value name))
+
+(sb-mop:ensure-class 'meta-type 
+		     ':direct-superclasses '()
+		     ':direct-slots (list (list ':name 'value)
+					  (list ':name 'name)))
+