From 007a52ce7b04a24281a7f713838c5c7aecd27e61 Mon Sep 17 00:00:00 2001 From: Gerd Flaig Date: Tue, 21 Jul 2009 19:43:25 +0200 Subject: [PATCH] MOP experiment --- scratch.lisp | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) 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))) + -- 2.43.0