Update array constructors to please new SBCL
    
        | author | 
        Steve Losh <steve@stevelosh.com> | 
    
    
        | date | 
        Tue, 23 Jul 2024 09:41:58 -0400 | 
    
    
        | parents | 
        587e073a6f31  | 
    
    
        | children | 
        (none) | 
    
.PHONY: vendor docs pubdocs test test-sbcl test-ccl test-ecl test-abcl
sourcefiles = $(shell ffind --full-path --literal .lisp)
docfiles = $(shell ls docs/*.markdown)
apidocs = $(shell ls docs/*reference*.markdown)
heading_printer = $(shell which heading || echo 'true')
# Vendor ----------------------------------------------------------------------
vendor/quickutils.lisp: vendor/make-quickutils.lisp
	cd vendor && sbcl --noinform --load make-quickutils.lisp  --eval '(quit)'
vendor: vendor/quickutils.lisp
# Testing ---------------------------------------------------------------------
test: test-sbcl test-ccl test-ecl test-abcl
test-sbcl: vendor
	$(heading_printer) computer 'SBCL'
	sbcl --load test/run.lisp
test-ccl: vendor
	$(heading_printer) slant 'CCL'
	ccl --load test/run.lisp
test-ecl: vendor
	$(heading_printer) roman 'ECL'
	ecl -load test/run.lisp
test-abcl: vendor
	$(heading_printer) broadway 'ABCL'
	abcl --load test/run.lisp
# Documentation ---------------------------------------------------------------
$(apidocs): $(sourcefiles)
	sbcl --noinform --load docs/api.lisp  --eval '(quit)'
docs/build/index.html: $(docfiles) $(apidocs) docs/title
	cd docs && ~/.virtualenvs/d/bin/d
	cd docs && rm -rf build/assets
	cd docs && cp -R ./assets build/assets
docs: docs/build/index.html
pubdocs: docs
	hg -R ~/src/docs.stevelosh.com pull -u
	rsync --delete -a ./docs/build/ ~/src/docs.stevelosh.com/cl-netpbm
	hg -R ~/src/docs.stevelosh.com commit -Am 'cl-netpbm: Update site.'
	hg -R ~/src/docs.stevelosh.com push upstream
	hg -R ~/src/docs.stevelosh.com push