--- 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
--- 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+)