Add a make-load-form to allow Allegro to dump images of meta structures.

diff --git a/meta-src.lisp b/meta-src.lisp
index 7e05f9e..4bb834c 100644 (file)
--- a/meta-src.lisp
+++ b/meta-src.lisp
@@ -112,6 +112,9 @@
     char
     form)
 
+(defmethod make-load-form ((m meta) &optional environment)
+  `(make-meta :char ,(meta-char m) :form ',(meta-form m)))
+
 
 (defun compileit (x &key meta-parser-type source-symbol)
        (typecase x