#56: Heap overflow checking fails on darwin/x86
--------------------+-------------------------------------------------------
Reporter: rtoy | Owner: somebody
Type: defect | Status: new
Priority: major | Milestone:
Component: Core | Version: 2012-01
Keywords: |
--------------------+-------------------------------------------------------
{{{
cmulisp -dynamic-space-size 64
* (defvar *1* (make-list 10000000))
; [GC threshold exceeded with 35,359,432 bytes in use. Commencing GC.]
; [GC completed with 21,504,336 bytes retained and 13,855,096 bytes
freed.]
; [GC will next occur when at least 53,504,336 bytes are in use.]
; [GC threshold exceeded with 53,514,472 bytes in use. Commencing GC.]
*A2 gc_alloc_new_region failed, nbytes=8.
CMUCL has run out of dynamic heap space (64 MB).
You can control heap size with the -dynamic-space-size commandline
option.
sigbus_handler: Real protection violation at 0xac3, PC = 0x4b3243e3
...
}}}
This probably happens in older versions too, but I didn't check. Works ok
on linux.
--
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/56>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.
#59: pcl failure
--------------------+-------------------------------------------------------
Reporter: rtoy | Owner: rtoy
Type: defect | Status: new
Priority: major | Milestone:
Component: PCL | Version: 20c
Keywords: |
--------------------+-------------------------------------------------------
Mentioned on the asdf-devel page.
1. start cmucl
1. {{{(require :asdf)}}}
1. push my asdf directory onto {{{asdf:*central-registry*}}}
1. {{{(asdf:load-system :asdf)}}}
The asdf directory in question is the directory containing the asdf
version 2.20.18.
The error produced is:
{{{
#(11) fell through ETYPECASE expression.
Wanted one of (FUNCTION PCL::FAST-INSTANCE-BOUNDP FIXNUM PCL::METHOD-CALL
PCL::FAST-METHOD-CALL).
[Condition of type CONDITIONS::CASE-FAILURE]
Restarts:
0: [TRY-RECOMPILING] Try recompiling asdf
1: [RETRY ] Retry compiling #<CL-SOURCE-FILE "asdf" "asdf">.
2: [ACCEPT ] Continue, treating
compiling #<CL-SOURCE-FILE "asdf" "asdf"> as
having been
successful.
3: [ABORT ] Return to Top-Level.
}}}
--
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/59>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.
#58: UTF-16 buffering problem
---------------------+------------------------------------------------------
Reporter: rtoy | Owner:
Type: defect | Status: new
Priority: major | Milestone:
Component: Unicode | Version: 2012-04
Keywords: |
---------------------+------------------------------------------------------
The following code should not cause errors:
{{{
(with-open-file (s "test.txt" :direction :output :external-format :utf-16)
(dotimes (i 300)
(write-char (code-char i) s)))
(with-open-file (s "test.txt" :direction :input :external-format :utf-16)
(dotimes (i 300)
(let ((ch (read-char s nil nil)))
(unless (= i (char-code ch))
(format t "Error at ~D: ~S, ~4X~%" i ch (char-code ch))))))
}}}
--
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/58>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.