Make it work with XCVB and a modern SBCL.
authorFrancois-Rene Rideau <fare@tunes.org>
Sat, 26 Sep 2009 02:07:02 +0000 (22:07 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Sat, 26 Sep 2009 02:07:02 +0000 (22:07 -0400)
build.xcvb [new file with mode: 0644]
meta-src.lisp
package.lisp

diff --git a/build.xcvb b/build.xcvb
new file mode 100644 (file)
index 0000000..5ae7b48
--- /dev/null
@@ -0,0 +1,9 @@
+#+xcvb
+(module
+ (:fullname
+  "meta"
+  :depends-on
+  ("package" "meta-src")
+  :supersedes-asdf
+  ("meta")))
+
index a892353..7e05f9e 100644 (file)
 ;;;;       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)
 
 
                          ))))
 
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (defparameter *saved-readtable* (copy-readtable))
 (defparameter *meta-readtable* (copy-readtable))
 
 
 #|
 
-(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)))
   (defun ctoi (d) (- (char-code d) #.(char-code #\0)))
 )
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (enable-meta-syntax)
 )
 
                             $[@(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)
 )
 
index 9845cf0..f735085 100644 (file)
@@ -1,5 +1,7 @@
 ;;;; See meta.lisp for copyright-information
 
+#+xcvb (module (:depends-on nil))
+
 (in-package :cl-user)
 
 (defpackage :meta