December 2008 - cmucl-ticket - mailman3.common-lisp.net

[cmucl-ticket] [cmucl] #28: Need to stop command switch processing at --
by cmucl 10 Jan '09

10 Jan '09

#28: Need to stop command switch processing at -- -------------------------+-------------------------------------------------- Reporter: frideau | Owner: rtoy Type: enhancement | Status: new Priority: minor | Milestone: Component: Core | Version: 2008-11 Keywords: | -------------------------+-------------------------------------------------- So that it be possible for a wrapper script to call a safe cmucl application with user arguments that are not processed by process-command- strings but by the application code, without opening a backdoor whereby malicious users can use -eval in their arguments, I'd like the code in code/commandline.lisp to stop evaluation of switches when it reaches the standard marker "--". This would notably simplify the cl-launch wrapper's support for cmucl. Currently, it has to first create a setf form from the shell to initialize the lisp's *arguments* from within an -eval form. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/28> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 2

[cmucl-ticket] [cmucl] #27: Trace bug on Darwin/x86
by cmucl 18 Dec '08

18 Dec '08

#27: Trace bug on Darwin/x86 --------------------+------------------------------------------------------- Reporter: rtoy | Owner: rtoy Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2008-11 Keywords: | --------------------+------------------------------------------------------- This bit of code causes a bug in tracing on Darwin/x86: {{{ (defun call-fact-acc (x) (let ((r (multiple-value-list (fact-acc x)))) (values-list r))) (defun fact-acc (x) (labels ((f (x accum) (if (zerop x) accum (f (1- x) (* x accum))))) (f x 1))) (trace fact-acc) }}} Then {{{(call-fact-acc 4)}}} causes a segfault and you can't even get back to the repl. This bug is fixed in CVS, but I'm recording this simple test case here. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/27> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 1

Re: [cmucl-ticket] [cmucl] #23: [cmucl-help] Spurious compilation diagnostic?
by cmucl 11 Dec '08

11 Dec '08

#23: [cmucl-help] Spurious compilation diagnostic? ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: rtoy Type: defect | Status: assigned Priority: minor | Milestone: Component: Core | Version: 2008-09 Resolution: | Keywords: ---------------------+------------------------------------------------------ Changes (by rtoy): * owner: somebody => rtoy * status: new => assigned Comment: I think there are two possible options: 1. Stick an inhibit-warnings in the stream-dispatch macro 2. Define dummy versions of the undefined functions, which will get replaced when Gray streams or simple-streams are loaded. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/23#comment:1> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 0

[cmucl-ticket] [cmucl] #26: slto-value type check
by cmucl 11 Dec '08

11 Dec '08

#26: slto-value type check --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: minor | Milestone: Component: Core | Version: 2008-11 Keywords: pcl | --------------------+------------------------------------------------------- From cmucl-help, 2008-11-26 {{{ (defclass foo () ((a :type fixnum))) (defvar *object* (make-instance 'foo)) }}} This works, even though the assigned value is not a fixnum: {{{ (setf (slot-value *object* 'a) 3.5) ;; this works like a charm }}} but with {{{ (defmethod setslot ((foo foo) val) (setf (slot-value foo 'a) val)) }}} We have {{{ (setslot *object* 3.5) ;; triggers a type error }}} -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/26> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 2

[cmucl-ticket] [cmucl] #25: Compiler bug
by cmucl 11 Dec '08

11 Dec '08

#25: Compiler bug ----------------------+----------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2008-11 Keywords: compiler | ----------------------+----------------------------------------------------- Reported on cmucl-imp, 2008-10-31 {{{ (declaim (optimize (speed 0) (safety 3) (debug 3))) (defun test-pop-and-return () (loop (pop *random-stack*) (return))) }}} When compiled, this causes an internal compiler error from {{{STACK- ANALYZE}}}. The error happens because {{{NODE-PREV}}} returns {{{NIL}}} instead of a node. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/25> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 4

Re: [cmucl-ticket] [cmucl] #21: Modular arith bug 3
by cmucl 11 Dec '08

11 Dec '08

#21: Modular arith bug 3 ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: closed Priority: minor | Milestone: Component: Core | Version: 2008-08 Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by rtoy): * status: new => closed * resolution: => fixed -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/21#comment:3> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 0

Re: [cmucl-ticket] [cmucl] #15: x86 double-float issue
by cmucl 11 Dec '08

11 Dec '08

#15: x86 double-float issue ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: closed Priority: minor | Milestone: Component: Core | Version: 19d Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by rtoy): * status: new => closed * resolution: => fixed -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/15#comment:2> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 0

Re: [cmucl-ticket] [cmucl] #21: Modular arith bug 3
by cmucl 05 Dec '08

05 Dec '08

#21: Modular arith bug 3 ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: minor | Milestone: Component: Core | Version: 2008-08 Resolution: | Keywords: ---------------------+------------------------------------------------------ Comment(by rtoy): This should be fixed in the 2008-12 snapshot. We now delay {{{logand-defopt-helper}}}until after {{{IR2}}} optimizations are done so that we give the compiler a chance to derive all of the variable types. Then we run this optimizer. This will cause some increase in compilation time for code that deals with modular arithmetic, but we should get better behaved modular arithmetic. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/21#comment:2> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 0

Re: [cmucl-ticket] [cmucl] #15: x86 double-float issue
by cmucl 05 Dec '08

05 Dec '08

#15: x86 double-float issue ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: minor | Milestone: Component: Core | Version: 19d Resolution: | Keywords: ---------------------+------------------------------------------------------ Comment(by rtoy): This should be fixed in the 2008-12 snapshot when sse2 is used. This issue will remain for x87; we have no intention of fixing this. -- Ticket URL: <http://127.0.0.1:8000/cmucl/ticket/15#comment:1> cmucl <http://common-lisp.net/project/cmucl> cmucl

1 0