Custom Query (1030 matches)

The following results in a bad error under CCL 1.10 / Win64. it does work as expected under Win32 :

(defun define-char (character &rest data)
  (let ((chardata (make-array (list (length data) (length (car data)))
                              :element-type 'bit
                              )))
    (loop for m from 0
       for item in data
       do (loop for n from 0
             for bit in (coerce item 'list)
             do (setf (aref chardata m n) (if (zerop bit) 0 1))
               ))))


(define-char #\Space
    #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0)
  #(0 0 0 0 0 0 0 0))

? (load "c:/temp/foo.lisp")
;Compiler warnings for "c:/temp/foo.lisp" :
;   In DEFINE-CHAR: Unused lexical variable CHARACTER
> Error: Fault during read of memory address #xB
> While executing: DEFINE-CHAR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.}}}

Hi,

CCL terminates inexplicably and randomly in Win32. It leave no tangible error messages behind, except for:

Process inferior-lisp exited abnormally with code 5

(progn (load "c:/slime-2009-10-15/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "c:/DOCUME~1/bob/LOCALS~1/Temp/slime.5340" :coding-system "utf-8-unix"))

*Messages*: Lisp connection closed unexpectedly: connection broken by remote peer

That's all I get. I have upgraded to a later version, and it keeps happening still. The versions affected are

Version 1.4-RC1-r13031 (WindowsX8632) and Version 1.4-r13122 (WindowsX8632)

It happens under various conditions. Not only when I am hacking on elaborate projects with threads and FFI, but also when using the repl as a simple arithmetic calculator.

I am not able to test this without Emacs/Slime, it's under active use that this issue comes up, and I can't use the naked CLI version for more than 1 minute.

I am willing to build a debug version of CCL and send more info if this issue is being looked at actively.

Regards. '

Hi,

When the a package is present, say, HUNCHENTOOT, the following works

(defpackage :foo

(:use :cl :hunchentoot))

(in-package :foo)

..

However, as start to use more packages during the course of hacking, I sometimes :USE non-existent package or misspell its name.

(defpackage :foo

(:use :cl :hunchentoot :frob))

(in-package :foo)

..

On Linux, I get the correct behaviour:

The name "FROB" does not designate any package.

[Condition of type SB-KERNEL:SIMPLE-PACKAGE-ERROR]

But on Win32, things get unwieldy: I first get the error, but if I try to correct it by fixing the spelling or loading an ASDF system, all forms refuse to evaluate. For example, after fixing the typo, I get this:

Undefined function :USE called with arguments (:CL

:CL-WHO :POSTMODERN :SIMPLE-DATE :HUNCHENTOOT) .

[Condition of type CCL::UNDEFINED-FUNCTION-CALL]

Even evaluating () returns ==> COMMON-LISP:NIL

The only way I know how to repair things without restarting CCL is to do this:

FOO> (cl-user::in-package :cl-user) #<Package "COMMON-LISP-USER"> CL-USER> (in-package :foo) #<Package "FOO">

Attached is a stack trace.

CL-USER> (lisp-implementation-version) "Version 1.4 (WindowsX8632)"