Open Devon7 opened 4 years ago
It seems to succeed on Catalina for me. But, I also have my own compiled version of CCL. So, maybe not helpful.
% ccl --no-init --eval '(load "~/quicklisp/setup.lisp")' --eval '(ql:quickload "cepl")'
To load "cepl":
Load 1 ASDF system:
cepl
; Loading "cepl"
Clozure Common Lisp Version 1.12-dev (v1.12-dev.4) DarwinX8664
For more information about CCL, please see http://ccl.clozure.com.
CCL is free software. It is distributed under the terms of the Apache
Licence, Version 2.0.
? (list (software-type) (software-version))
("Darwin" "19.6.0")
? (list (lisp-implementation-type) (lisp-implementation-version))
("Clozure Common Lisp" "Version 1.12-dev (v1.12-dev.4) DarwinX8664")
? (list (machine-type) (machine-version))
("x86_64" "MacBookAir5,2")
This issue appears in newer CCL and is handled in https://github.com/cbaggers/fn/issues/5 as investigated and explained in https://github.com/Clozure/ccl/issues/270
CEPL loads under CCL with this patch to ~/quicklisp/dists/quicklisp/software/varjo-release-quicklisp-6150bdcb-git/src/vari.glsl/variables-from-spec.lisp
--- variables-from-spec.lisp.~1~ 2020-07-16 07:24:34.000000000 -0700
+++ variables-from-spec.lisp 2020-09-16 14:59:33.000000000 -0700
@@ -1,5 +1,5 @@
(in-package :vari.glsl)
-(in-readtable fn:fn-reader)
+;; (in-readtable fn:fn-reader)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *definitions-missing-from-glsl-spec*
@@ -9,14 +9,14 @@
)))
(defmacro populate-vars ()
- (let ((vars (mapcar λ(destructuring-bind
+ (let ((vars (mapcar (lambda (_) (destructuring-bind
(&key lisp-name name type place-p versions
(stage t) &allow-other-keys) _
(declare (ignore versions))
(assert lisp-name)
(let* ((lisp-name (intern lisp-name :vari.glsl))
(lisp-type (parse-gl-type-name type)))
- `(,stage ,lisp-name ,name ,lisp-type ,place-p)))
+ `(,stage ,lisp-name ,name ,lisp-type ,place-p))))
(append *definitions-missing-from-glsl-spec*
glsl-spec:*variables*))))
@@ -25,7 +25,7 @@
',(mapcar (lambda (stage-name stage-type-name)
(cons stage-type-name
(mapcar #'rest (remove-if-not
- λ(eq stage-name _)
+ (lambda (_) (eq stage-name _))
vars :key #'first))))
(cons t *stage-names*)
(cons t *stage-type-names*)))
Thanks for taking care of this while I've been away folks! I'll try get some time to get this is this next week
See (ql:quickload "varjo") ; infinite loop stack overflow crash #239
$ ccl --no-init --eval '(load "~/quicklisp/setup.lisp")' --eval '(ql:quickload "cepl")' To load "cepl": Load 1 ASDF system: cepl ; Loading "cepl" ................................