Make it work with XCVB and a modern SBCL.

diff --git a/build.xcvb b/build.xcvb
new file mode 100644 (file)
index 0000000..5ae7b48
--- /dev/null
+++ b/build.xcvb
@@ -0,0 +1,9 @@
+#+xcvb
+(module
+ (:fullname
+  "meta"
+  :depends-on
+  ("package" "meta-src")
+  :supersedes-asdf
+  ("meta")))
+

diff --git a/meta-src.lisp b/meta-src.lisp
index a892353..7e05f9e 100644 (file)
--- a/meta-src.lisp
+++ b/meta-src.lisp
@@ -47,9 +47,11 @@
 ;;;;       Proc. 19'th Nat'l. Conf. of the ACM (Aug. 1964),D1.3-1-D1.3-11.
 ;;;;
 ;;;;
-;;;; Nürnberg, 01.Jul.2001 Jochen Schmidt
+;;;; Nuernberg, 01.Jul.2001 Jochen Schmidt
 
 
+#+xcvb (module (:depends-on ("package")))
+
 (in-package :meta)
 
 
@@ -143,7 +145,7 @@
                          ))))
 
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (defparameter *saved-readtable* (copy-readtable))
 (defparameter *meta-readtable* (copy-readtable))
 
@@ -202,7 +204,7 @@
 
 #|
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (deftype digit () '(member #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))
 
   (deftype non-digit () '(not (member #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
@@ -210,7 +212,7 @@
   (defun ctoi (d) (- (char-code d) #.(char-code #\0)))
 )
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (enable-meta-syntax)
 )
 
@@ -224,7 +226,7 @@
                             $[@(digit d) !(setq n (+ (* n 10) (ctoi d)))]])
                      (* s n))))
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (disable-meta-syntax)
 )
 

diff --git a/package.lisp b/package.lisp
index 9845cf0..f735085 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -1,5 +1,7 @@
 ;;;; See meta.lisp for copyright-information
 
+#+xcvb (module (:depends-on nil))
+
 (in-package :cl-user)
 
 (defpackage :meta