Custom Query (1030 matches)

To reproduce:

1. build and launch the IDE
2. Press the ESC key
3. Press any other key

Result:

Error: value NIL is not of the expected type STRUCTURE.

While executing: (:INTERNAL GUI::keyDown:|), in process Initial(0).

Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >

After exiting from the breakloop, the IDE remains confused, expecting a keydown and breaking on any it receives.

Following code cannot load after compile:

(in-package :cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package ':portable-threads)
    (make-package ':portable-threads
                  :use '(:common-lisp))))

(in-package :portable-threads)

binghe@binghe-mac:~/Lisp/src$ ccl64
; loading system definition from ASDF:CL-FAD;cl-fad.asd.newest into #<Package "ASDF0">
; registering #<SYSTEM CL-FAD #x300040F2D09D> as CL-FAD
Welcome to Clozure Common Lisp Version 1.2-r10475M-trunk  (DarwinX8664)!
? (compile-file "ccl-eval-when")
#P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
NIL
NIL
? (load "ccl-eval-when")
> Error: Package name "PORTABLE-THREADS" is already in use.
> While executing: MAKE-PACKAGE, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (65A778) : 0 (MAKE-PACKAGE :PORTABLE-THREADS [...]) 277
 (65A810) : 1 (FUNCALL #'#<CCL::$FASL-LFUNCALL> #<CCL::FASLSTATE #x76B10D>) 77
 (65A830) : 2 (%FASLOAD "/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                        [...]) 1285
 (65A8D8) : 3 (%LOAD #P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                     NIL
                     NIL
                     :ERROR
                     :DEFAULT) 2381
 (65AA40) : 4 (LOAD "ccl-eval-when" [...]) 1037
 (65AAE0) : 5 (CALL-CHECK-REGS 'LOAD [...]) 229
 (65AB18) : 6 (TOPLEVEL-EVAL '(LOAD "ccl-eval-when") [...]) 733
 (65ABB8) : 7 (READ-LOOP [...]) 1837
 (65ADD8) : 8 (TOPLEVEL-LOOP) 125
 (65AE08) : 9 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101
 (65AE20) : 10 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
 (65AEB8) : 11 (RUN-PROCESS-INITIAL-FORM
                 #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                 '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 717
 (65AF48) : 12 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)>
                        #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                        '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 389
 (65AF98) : 13 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 293
1 > :POP

? (exp (+ 10 (log most-positive-single-float)))
1E++0

This was with dx86cl64 on my MacBook Pro. It works ok (signals FLOATING-POINT-OVERFLOW) with lx86cl64.