# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1474738402 0
# Node ID 3383e2593fe20ef6a5835f8301e5ecb9fbd035ce
# Parent  7d1e30b7233c8dd80947420d46f0ebc67093d13b
Add ABCL support

diff -r 7d1e30b7233c -r 3383e2593fe2 Makefile
--- a/Makefile	Sat Sep 03 15:58:16 2016 +0000
+++ b/Makefile	Sat Sep 24 17:33:22 2016 +0000
@@ -5,7 +5,7 @@
 apidoc = docs/03-reference.markdown
 
 # Testing ---------------------------------------------------------------------
-test: test-sbcl test-ccl test-ecl
+test: test-sbcl test-ccl test-ecl test-abcl
 
 test-sbcl:
 	echo; figlet -kf computer 'SBCL' | sed -Ee 's/ +$$//' | tr -s '\n' | lolcat --freq=0.25; echo
@@ -19,6 +19,10 @@
 	echo; figlet -kf roman 'ECL' | sed -Ee 's/ +$$//' | tr -s '\n' | lolcat --freq=0.25; echo
 	ros run -L ecl --load test/run.lisp
 
+test-abcl:
+	echo; figlet -kf broadway 'ABCL' | sed -Ee 's/ +$$//' | tr -s '\n' | lolcat --freq=0.25; echo
+	abcl --load test/run.lisp
+
 
 # Quickutils ------------------------------------------------------------------
 vendor: vendor/quickutils.lisp
diff -r 7d1e30b7233c -r 3383e2593fe2 src/constants.lisp
--- a/src/constants.lisp	Sat Sep 03 15:58:16 2016 +0000
+++ b/src/constants.lisp	Sat Sep 24 17:33:22 2016 +0000
@@ -8,10 +8,9 @@
      (define-constant ,count-symbol ,(length symbols))))
 
 
-(define-constant +code-word-size+ 60
-  :documentation "Size (in bits) of each word in the code store.")
-
-(define-constant +code-limit+ (expt 2 +code-word-size+)
+(define-constant +code-limit+ most-positive-fixnum
+  ;; We want this to be a fixnum, because we're going to store "pointers" into
+  ;; the code store and we want them to be unboxed when possible.
   :documentation "Maximum size of the WAM code store.")
 
 (define-constant +code-sentinel+ (1- +code-limit+)