ccl

ccl copied to clipboard

defstruct slot initforms not evaluated when doing make-instance of structure-class

2

I was getting this exception ```lisp $ ccl Welcome to Clozure Common Lisp Version 1.11 (LinuxX8664)! CCL is developed and maintained by Clozure Associates. For more information about CCL visit...

bon

defstruct slot initforms don't capture lexical environment

1

(Copied from https://trac.clozure.com/ccl/ticket/609 with updated link) See the thread starting with https://lists.clozure.com/pipermail/openmcl-devel/2009-October/006146.html The spec's actually fairly clear on this; even if it wasn't, ignoring the environment of definition (as CCL's...

xrme

%apply-in-frame has bitrotted

1

I'm sure you're aware of this already, but I was just curious what it would take to make this work again: https://github.com/Clozure/ccl/blob/0c0dcfa122e429bc2d465493f0570a46f983abfc/lib/x86-backtrace.lisp#L399 Right now this message appears when using `r`...

SuperDisk

long form define-method-combination problem

4

CCL is unable to use the latest ansi-test because it fails in the long form of `define-method-combination`. The issue appears to be that `long-form-define-method-combination` uses `destructuring-bind` to parse the lambda...

yitzchak

``` (defun bug2 (p2 p4) (declare (optimize (safety 0)) (type (eql 1) p2) (type (eql 1.4d0) p4)) ((lambda (x z) (+ x (if nil 2 z))) p2 p4)) ``` (bug2...

pfdietz

Compiled code computing incorrect value NIL

5

Compiling this function: ``` (defun f321 (a b) (if (if a t (>= 0 67108863 (unwind-protect 0 0))) (complex (let ((v (cons 0 b))) (cdr v)) 0) 0)) ``` leads...

pfdietz

Compiler bug involving tag collision and labels function inlining

1

``` (defun bug392 () (let ((lam '(lambda () (tagbody (labels ((%f () (go 5))) (declare (inline %f)) (tagbody 5 (%f))) 5) nil))) (funcall (compile nil lam)))) ``` This function, when...

pfdietz

bad regspec: NIL in X862-COMPILE

1

This function has a problematic COERCE on a dynamically dead branch (assuming P is always going to be NIL). This sort of thing shouldn't cause an failure at compile time,...

pfdietz

Incorrect value computed in integer code

1

Compiling this function: ``` (defun f320 (b) (declare (type (integer -68847508698084903 448367229394151423) b)) (declare (optimize (safety 1) (speed 3))) (setf b (min 448367229394151423 (max -68847508698084903 (+ b b 0 b)))))...

pfdietz

seemingly silly strength reduction miss

1

``` (defun foo (i) (declare (optimize (speed 3) (safety 0))) (declare (fixnum i)) (the fixnum (* 2 i))) (defun bar (i) (declare (optimize (speed 3) (safety 0))) (declare (fixnum i))...

xrme