Commit a5964448 authored Jan 23, 2018 by Raymond Toy

Fixes for cmucl

bin/build-utils.sh:
* Temporarily turn off -batch

clx/dependent.lisp:
* WITH-ARRAY-DATA is in the LISP package, not KERNEL

clx/provide.lisp:
* For cmucl, don't compile anything else after (provide :clx)

parent c8ebc741

bin/build-utils.sh

+1 −1

Changes for bin/build-utils.sh: 1 added line, 1 removed line.
Original line number	Diff line number	Diff line
		@@ -16,7 +16,7 @@ TARGET="`echo $1 \| sed 's:/*$::'`"
		shift

		$TARGET/lisp/lisp \
		-noinit -nositeinit -batch "$@" <<EOF \|\| exit 3
		-noinit -nositeinit "$@" <<EOF \|\| exit 3
		(in-package :cl-user)

		(setf lisp::enable-package-locked-errors nil)

src/clx/dependent.lisp

+1 −1

Changes for src/clx/dependent.lisp: 1 added line, 1 removed line.
Original line number	Diff line number	Diff line
		@@ -2942,7 +2942,7 @@ Returns a list of (host display-number screen protocol)."
		(defmacro with-underlying-simple-vector
		((variable element-type pixarray) &body body)
		(declare (ignore element-type))
		`(#+cmu kernel::with-array-data #+sbcl sb-kernel:with-array-data
		`(#+cmu lisp::with-array-data #+sbcl sb-kernel:with-array-data
		((,variable ,pixarray) (start) (end))
		(declare (ignore start end))
		,@body))

src/clx/provide.lisp

+3 −0

Changes for src/clx/provide.lisp: 3 added lines, 0 removed lines.
Original line number	Diff line number	Diff line
		@@ -18,6 +18,8 @@

		(provide :clx)

		#-cmu
		(progn
		(defvar clx-source-pathname
		(pathname "/src/local/clx/*.l"))

		@@ -49,3 +51,4 @@
		(if compile-clx
		(compile-clx clx-source-pathname clx-binary-pathname)
		(load-clx clx-binary-pathname))
		)
		No newline at end of file