Custom Query (1030 matches)

Filters
 
Or
 
  
 
Columns

Show under each result:

Results (730 - 732 of 1030)

← 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 →
Ticket Resolution Summary Owner Reporter
#446 fixed large array allocations in IDE cause hemlock to lock up Gary Byers Raffael Cavallaro
Description

IDE 64-bit Intel version 1.3-RC1-r11804M

this simple function: 

(defun atest (exponent)
  (declare (optimize (speed 0) (safety 3) (debug 3)))
 
(time (let* ((size (expt 10 exponent))
               (x (make-array size :element-type 'fixnum)))
          (loop for i fixnum below size do
            (setf (aref x i) i)) (aref x (- size 10)))))

when called with an arg of 7 (i.e., create an array of (expt 10 7) fixnums, causes hemlock and the IDE to lock up with the error below in AltConsole.

BTW, this causes no problems at all in the command line dx8664cl. 

*** Error in event process: value #<BOGUS object @ #x300041A48ACD> is not of the expected type STRUCTURE.

 (442590) : 0 (FUNCALL #'#<(:INTERNAL GUI::|-[HemlockTextstorageTextView updateSelection:length:affinity:]|)> #<TYPE-ERROR #x3000419FFE6D>) 149
  (#:G25336)
   #:G25336: #<TYPE-ERROR #x3000419FFE6D>

  #:COMPILER-VAR: (NIL)
  #:G25333: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF8B0>

 (4425B8) : 1 (SIGNAL #<TYPE-ERROR #x3000419FFE6D>) 981
  (CONDITION &REST CCL::ARGS)
   CONDITION: #<TYPE-ERROR #x3000419FFE6D>
   CCL::ARGS: NIL

  CCL::%HANDLERS%: ((ERROR) (CONDITION #) (ERROR))
  CCL::TAG: #<TYPE-ERROR #x3000419FFE6D>
  CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
  CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextstorageTextView updateSelection:length:affinity:]|) #x49374F>

 (442610) : 2 (%ERROR #<TYPE-ERROR #x3000419FFE6D> NIL 558318) 117
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<TYPE-ERROR #x3000419FFE6D>
   CCL::ARGS: NIL
   CCL::ERROR-POINTER: 558318



 (442638) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4365
  NIL

  CCL::FRAME-PTR: 558318
  CCL::FN: #<Compiled-function HEMLOCK-INTERFACE:NEXT-CHARACTER #x30004143C21F>
  CCL::OP0: 205
  CCL::OP1: 222
  CCL::OP2: 54
  CCL::SKIP: -1
  CCL::TYPENAME: STRUCTURE
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFF5C0>
  CCL::XCF: #<A Foreign Pointer #x442770>

 (442690) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x49369F>) 181
  (CCL::THUNK)
   CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x49369F>

  COUNT: 0
  CCL::*ERROR-REENTRY-COUNT*: 0

 (4426D0) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849975218) 493
  (#:G128953)
   #:G128953: 17591849975218

  #:G128963: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFED90>
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFF5C0>
  CCL::XCF: #<A Foreign Pointer #x442770>
  #:G128964: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x49369F>

 (442708) : 6 (%PASCAL-FUNCTIONS% 2 17591849975218) 397
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 2
   CCL::ARGS-PTR-FIXNUM: 17591849975218

  CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-Global)  #x3000405CE2AF>
  WITHOUT-INTERRUPTS: NIL
  CCL::*CALLBACK-TRACE-P*: NIL

*(442770) : 8 (NEXT-CHARACTER #<error printing object>) 784
  (HEMLOCK-INTERFACE:MARK)
   HEMLOCK-INTERFACE:MARK: #<error printing object>

  HI::CHARPOS: 102
  HI:LINE: #<BOGUS object @ #x300041A48ACD>

 (4427E0) : 9 (FUNCALL #'#<#<STANDARD-METHOD GUI::UPDATE-PAREN-HIGHLIGHT (GUI::HEMLOCK-TEXTSTORAGE-TEXT-VIEW)>> #<BOGUS object @ #x300041A48ACD>) 397
  (GUI::SELF)
   GUI::SELF: #<BOGUS object @ #x300041A48ACD>

  GUI::BUFFER: HI::CURRENT-LEFT-OPEN-POS
  HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Listener">
  GUI::POINT: 102

 (442828) : 10 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView updateSelection:length:affinity:]|> 17591849975574) 933
  (#:G25332)
   #:G25332: 17591849975574

  #:G25348: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF8B0>
  #:G25333: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF8B0>
  #:COMPILER-VAR: (NIL)
  #:G25338: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextstorageTextView updateSelection:length:affinity:]|) #x49374F>
  #:G25349: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x49374F>)
  CCL::%HANDLERS%: ((CONDITION #) (CONDITION #) (ERROR))
  GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)>
  GUI::_CMD: #<A Foreign Pointer #x1A3270>
  GUI::POS: 790
  LENGTH: 0
  GUI::AFFINITY: 1

 (4428A8) : 11 (%PASCAL-FUNCTIONS% 77 17591849975574) 397
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 77
   CCL::ARGS-PTR-FIXNUM: 17591849975574

  CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[HemlockTextstorageTextView updateSelection:length:affinity:]| (Non-Global)  #x30004165317F>
  WITHOUT-INTERRUPTS: NIL
  CCL::*CALLBACK-TRACE-P*: NIL

 (442968) : 13 (FUNCALL #'#<Anonymous Function #x300041653EAF> #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)> #S(CCL::OBJC-SELECTOR :NAME "updateSelection:length:affinity:" :%SEL #<A Foreign Pointer #x1A3270>) 790 0 1) 421
  (#:G28915 #:G28916 CCL::ARG0 CCL::ARG1 CCL::ARG2)
   #:G28915: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)>
   #:G28916: #S(CCL::OBJC-SELECTOR :NAME "updateSelection:length:affinity:" :%SEL #<A Foreign Pointer #x1A3270>)
   CCL::ARG0: 790
   CCL::ARG1: 0
   CCL::ARG2: 1



 (4429A0) : 14 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)> 790 0 1) 501
  (CCL::RECEIVER &REST CCL::ARGS)
   CCL::RECEIVER: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)>
   CCL::ARGS: (790 0 1)

  CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "updateSelection:length:affinity:" :%SEL #<A Foreign Pointer #x1A3270>)
  FUNCTION: #<Anonymous Function #x300041653EAF>

 (4429E0) : 15 (FOR-EACH-TEXTVIEW-USING-STORAGE #<HEMLOCK-TEXT-STORAGE HemlockTextStorage : string <HemlockBufferString for #<Hemlock Buffer "Listener">> (#x1375F770)> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3000419C1EAF>) 429
  (GUI::TEXTSTORAGE GUI::F)
   GUI::TEXTSTORAGE: #<HEMLOCK-TEXT-STORAGE HemlockTextStorage : string <HemlockBufferString for #<Hemlock Buffer "Listener">> (#x1375F770)>
   GUI::F: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3000419C1EAF>

  GUI::LAYOUTS: #<NS-MUTABLE-ARRAY (
    <NSLayoutManager: 0x1376a120>
    1 containers, text backing has 790 characters
    selected character range {790, 0} affinity: upstream granularity: character
    marked character range {790, 0}
    Currently holding 790 glyphs.
    Glyph tree contents:  790 characters, 790 glyphs, 3 nodes, 192 node bytes, 704 storage bytes, 896 total bytes, 1.13 bytes per character, 1.13 bytes per glyph
    Layout tree contents:  790 characters, 790 glyphs, 688 laid glyphs, 18 laid line fragments, 3 nodes, 192 node bytes, 3104 storage bytes, 3296 total bytes, 4.17 bytes per character, 4.17 bytes per glyph, 38.22 laid glyphs per laid line fragment, 183.11 bytes per laid line fragment

) (#x1375F810)>
  #:G24748: 1
  GUI::I: 0
  GUI::LAYOUT: #<NS-LAYOUT-MANAGER <NSLayoutManager: 0x1376a120>
    1 containers, text backing has 790 characters
    selected character range {790, 0} affinity: upstream granularity: character
    marked character range {790, 0}
    Currently holding 790 glyphs.
    Glyph tree contents:  790 characters, 790 glyphs, 3 nodes, 192 node bytes, 704 storage bytes, 896 total bytes, 1.13 bytes per character, 1.13 bytes per glyph
    Layout tree contents:  790 characters, 790 glyphs, 688 laid glyphs, 18 laid line fragments, 3 nodes, 192 node bytes, 3104 storage bytes, 3296 total bytes, 4.17 bytes per character, 4.17 bytes per glyph, 38.22 laid glyphs per laid line fragment, 183.11 bytes per laid line fragment
 (#x1376A120)>
  GUI::CONTAINERS: #<NS-MUTABLE-ARRAY (
    <NSTextContainer: 0x1376a880>
) (#x137685B0)>
  #:G24750: 1
  GUI::J: 0
  GUI::CONTAINER: #<NS-TEXT-CONTAINER <NSTextContainer: 0x1376a880> (#x1376A880)>
  GUI::TV: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1376b350>
    Frame = {{0.00, 0.00}, {570.00, 304.00}}, Bounds = {{0.00, 0.00}, {570.00, 304.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {570.00, 224.00}, MaxSize = {10000000.00, 10000000.00}
 (#x1376B350)>

 (442A50) : 16 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Listener"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3000419C1F1F>) 277
  (GUI::BUFFER GUI::THUNK)
   GUI::BUFFER: #<Hemlock Buffer "Listener">
   GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3000419C1F1F>

  GUI::OLD: NIL

 (442A98) : 17 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x30004196756D> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::APPEND-OUTPUT) #x3000419C1FAF>) 925
  (HI::VIEW HI::KEY)
   HI::VIEW: #<HI:HEMLOCK-VIEW #x30004196756D>
   HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::APPEND-OUTPUT) #x3000419C1FAF>

  #:ABORT-BREAK: #<RESTART ABORT-BREAK #x493ADD>
  #:ABORT: #<RESTART ABORT #x493A8D>
  #:G11576: (#<RESTART ABORT #x493A8D> #<RESTART ABORT-BREAK #x493ADD>)
  CCL::%RESTARTS%: ((#<# # #x493A8D> #<# # #x493ADD>))
  HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #x30004196756D>
  HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Listener">
  HI::*NEXT-VIEW-START*: NIL
  HI::TEXT-BUFFER: #<Hemlock Buffer "Listener">
  MOD: (69 688 . 688)

 (442B50) : 18 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558482)) 1069
  (CCL::MAGIC &REST CCL::ARGS)
   CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558482)
   CCL::ARGS: NIL

  CCL::NEXT-METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
  CCL::ARGS: 558482
  CDR: NIL
  METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>

 (442BD0) : 19 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x30004196756D> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::APPEND-OUTPUT) #x3000419C1FAF>) 173
  (GUI::VIEW GUI::EVENT)
   GUI::VIEW: #<HI:HEMLOCK-VIEW #x30004196756D>
   GUI::EVENT: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::APPEND-OUTPUT) #x3000419C1FAF>

  #:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558482)
  #:G24986: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x11a120> (#x11A120)>






*** Error in event process: value #<BOGUS object @ #x300041A3F89D> is not of the expected type SIMPLE-VECTOR.

 (442B20) : 0 (FUNCALL #'#<(:INTERNAL GUI::|-[NSApplication invokeLispFunction:]|)> #<TYPE-ERROR #x300041A10A8D>) 149
  (#:G5385)
   #:G5385: #<TYPE-ERROR #x300041A10A8D>

  #:COMPILER-VAR: (NIL)
  #:G5382: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFEBA0>

 (442B48) : 1 (SIGNAL #<TYPE-ERROR #x300041A10A8D>) 981
  (CONDITION &REST CCL::ARGS)
   CONDITION: #<TYPE-ERROR #x300041A10A8D>
   CCL::ARGS: NIL

  CCL::%HANDLERS%: ((ERROR) (ERROR))
  CCL::TAG: #<TYPE-ERROR #x300041A10A8D>
  CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
  CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[NSApplication invokeLispFunction:]|) #x493DBF>

 (442BA0) : 2 (%ERROR #<TYPE-ERROR #x300041A10A8D> NIL 558496) 117
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<TYPE-ERROR #x300041A10A8D>
   CCL::ARGS: NIL
   CCL::ERROR-POINTER: 558496



 (442BC8) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4365
  NIL

  CCL::FRAME-PTR: 558496
  CCL::FN: #<Compiled-function CCL::ID-MAP-FREE-OBJECT #x300040491A0F>
  CCL::OP0: 205
  CCL::OP1: 215
  CCL::OP2: 182
  CCL::SKIP: -1
  CCL::TYPENAME: SIMPLE-VECTOR
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFE8B0>
  CCL::XCF: #<A Foreign Pointer #x442D00>

 (442C20) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493C5F>) 181
  (CCL::THUNK)
   CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493C5F>

  COUNT: 0
  CCL::*ERROR-REENTRY-COUNT*: 0

 (442C60) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849974800) 493
  (#:G128953)
   #:G128953: 17591849974800

  #:G128963: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE080>
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFE8B0>
  CCL::XCF: #<A Foreign Pointer #x442D00>
  #:G128964: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493C5F>

 (442C98) : 6 (%PASCAL-FUNCTIONS% 2 17591849974800) 397
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 2
   CCL::ARGS-PTR-FIXNUM: 17591849974800

  CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-Global)  #x3000405CE2AF>
  WITHOUT-INTERRUPTS: NIL
  CCL::*CALLBACK-TRACE-P*: NIL

*(442D00) : 8 (ID-MAP-FREE-OBJECT #S(CCL::ID-MAP :VECTOR #<BOGUS object @ #x300041A3F89D> :FREE 2 ...) 1) 321
  (CCL::ID-MAP CCL::ID)
   CCL::ID-MAP: #S(CCL::ID-MAP :VECTOR #<BOGUS object @ #x300041A3F89D> :FREE 2 ...)
   CCL::ID: 1

  #:G124031: #<LOCK-ACQUISITION [status = T] #x493D3D>
  #:G124032: #<RECURSIVE-LOCK [ptr @ #x103000] #x3000412D48BD>
  VECTOR: #<BOGUS object @ #x300041A3F89D>

 (442DA8) : 9 (FUNCALL #'#<#<STANDARD-METHOD GUI::INVOKE-LISP-FUNCTION (NS:NS-APPLICATION T)>> #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)> #<NS-NUMBER 1 (#x1A8370)>) 133
  (GUI::SELF GUI::ID)
   GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>
   GUI::ID: #<NS-NUMBER 1 (#x1A8370)>



 (442DD8) : 10 (FUNCALL #'#<GUI::|-[NSApplication invokeLispFunction:]|> 17591849975156) 869
  (#:G5381)
   #:G5381: 17591849975156

  #:G5397: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFEBA0>
  #:G5382: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFEBA0>
  #:COMPILER-VAR: (NIL)
  #:G5387: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[NSApplication invokeLispFunction:]|) #x493DBF>
  #:G5398: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>)
  CCL::%HANDLERS%: ((CONDITION #) (ERROR))
  GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>
  GUI::_CMD: #<A Foreign Pointer #x1A0AB0>
  GUI::ID: #<NS-NUMBER 1 (#x1A8370)>

 (442E48) : 11 (%PASCAL-FUNCTIONS% 13 17591849975156) 397
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 13
   CCL::ARGS-PTR-FIXNUM: 17591849975156

  CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[NSApplication invokeLispFunction:]| (Non-Global)  #x3000412D3E6F>
  WITHOUT-INTERRUPTS: NIL
  CCL::*CALLBACK-TRACE-P*: NIL

 (442F08) : 13 (FUNCALL #'#<Anonymous Function #x3000412008BF> #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF83218D68>)) 205
  (#:G3072 #:G3073)
   #:G3072: #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>
   #:G3073: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF83218D68>)



 (442F28) : 14 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>) 501
  (CCL::RECEIVER &REST CCL::ARGS)
   CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>
   CCL::ARGS: NIL

  CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF83218D68>)
  FUNCTION: #<Anonymous Function #x3000412008BF>

 (442F68) : 15 (EVENT-LOOP NIL) 413
  (&OPTIONAL GUI::END-TEST)
   GUI::END-TEST: NIL

  GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1bec70> (#x1BEC70)>
  *BREAK-ON-ERRORS*: NIL
  #:G7500: (ERROR)
  CCL::%HANDLERS%: ((ERROR))
  GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#<TYPE-ERROR #x300041A10A8D> #<TYPE-ERROR #x3000419FFE6D>)
#670 worksforme Clozure CL64 crash when viewing a webpage using javascript Raffael Cavallaro
Description

From a fresh trunk launch of the 64-bit intel IDE (Clozure CL64) execute: 

(require 'webkit)

which will load the webkit example from the ccl:examples directory.

when webkit is done loading, execute: 

(ccl::browser-window "http://www.apple.com")

this will drop you into AltConsole with the following error and backtrace, etc. that appears to be related to JavaScript execution. NB, this same series of steps does not error under the 32-bit intel IDE (Clozure CL32). 

Unhandled exception 4 at 0x256157e28c4f, context->regs at #x7fff5fbfcfe0
Exception occurred while executing foreign code
? for help
[4160] Clozure CL kernel debugger: ?
(G)  Set specified GPR to new value
(R)  Show raw GPR/SPR register values
(L)  Show Lisp values of tagged registers
(F)  Show FPU registers
(S)  Find and describe symbol matching specified name
(B)  Show backtrace
(T)  Show info about current thread
(X)  Exit from this debugger, asserting that any exception was handled
(P)  Propagate the exception to another handler (debugger or OS)
(K)  Kill Clozure CL process
(?)  Show this help
[4160] Clozure CL kernel debugger: r
%rax = 0x000000001549a080      %r8  = 0x000000000000003f
%rcx = 0x0000000015b77838      %r9  = 0x00000000156496a0
%rdx = 0x0000000000000000      %r10 = 0x000000001549a2c0
%rbx = 0x0000000015c1e480      %r11 = 0x0000000015b80e40
%rsp = 0x00007fff5fbfd4b0      %r12 = 0x00000000000001e8
%rbp = 0x00007fff5fbfd520      %r13 = 0x0000000015710148
%rsi = 0x0000000015710148      %r14 = 0xffff000000000000
%rdi = 0x0000000015638000      %r15 = 0xffff000000000002
%rip = 0x0000256157e28c4f   %rflags = 0x00010202
[4160] Clozure CL kernel debugger: l
[4160] Clozure CL kernel debugger: f
f00: 0x1549a640 (4.072277e-26), 0x000000001549a640 (1.764547e-315)
f01: 0x1549a6c0 (4.072317e-26), 0x000000001549a6c0 (1.764547e-315)
f02: 0x1549a740 (4.072356e-26), 0x000000001549a740 (1.764548e-315)
f03: 0x1549a7c0 (4.072396e-26), 0x000000001549a7c0 (1.764549e-315)
f04: 0x00000002 (2.802597e-45), 0x0000000000000002 (9.881313e-324)
f05: 0x00730065 (1.056122e-38), 0x0061002e00730065 (7.565563e-307)
f06: 0x00000000 (0.000000e+00), 0x0000000000000000 (0.000000e+00)
f07: 0x00000000 (0.000000e+00), 0x3ff0000000000000 (1.000000e+00)
f08: 0x00000000 (0.000000e+00), 0x3ff0000000000000 (1.000000e+00)
f09: 0x00000000 (0.000000e+00), 0x3ff0000000000000 (1.000000e+00)
f10: 0x00000000 (0.000000e+00), 0x3ff0000000000000 (1.000000e+00)
f11: 0x00000000 (0.000000e+00), 0x3ff0000000000000 (1.000000e+00)
f12: 0x00000000 (0.000000e+00), 0x0000000000000000 (0.000000e+00)
f13: 0x00000000 (0.000000e+00), 0x4030000000000000 (1.600000e+01)
f14: 0x3b808081 (3.921569e-03), 0x3b8080813b808081 (4.368036e-22)
f15: 0x00000000 (0.000000e+00), 0x0000000000000000 (0.000000e+00)
mxcsr = 0x00001fa1
[4160] Clozure CL kernel debugger: b
current thread: tcr = 0x1007b0, native thread ID = 0x207, interrupts enabled


(#x000000000044BF30) #x0000300000DE030C : #<Anonymous Function #x0000300000DE025F> + 173
(#x000000000044BF50) #x0000300001178884 : #<Function (:OBJC-DISPATCH run) #x000030000117864F> + 565
(#x000000000044BF88) #x0000300001178164 : #<Function EVENT-LOOP #x0000300001177FBF> + 421
[4160] Clozure CL kernel debugger: t
Current Thread Context Record (tcr) = 0x1007b0
Control (C) stack area:  low = 0x7fff5f99c000, high = 0x7fff5fbffac0
Value (lisp) stack area: low = 0x200000, high = 0x44c000
Exception stack pointer = 0x7fff5fbfd4b0
[4160] Clozure CL kernel debugger:
#297 fixed process-enable experiencing broken symptons on rc1.2 Gary Byers David L. Rager
Description

Hello Gary,

Release candidate 1.2 breaks Parallel ACL2 in a repeatable way. Openmcl states that it has been trying to enable a process, despite trying for a second. I noticed that level-1/processes.lisp:process-enable changed from 1.0.2 to rc1.2. It looks like the process is no longer being set as "Active". Perhaps this is just internal book keeping, but maybe calling attention to this change will help figure out why PACL2 doesn't work anymore.

Any ideas? I've included the transcript that replicates the problem. As you can see, it's from the most basic parallel example we have, fibonacci. There are more complex examples too if you're interested.

Thank you, David 

lhug-7.cs.utexas.edu% ./saved_acl2
Welcome to Clozure Common Lisp Version 1.2-r9226-RC1  (LinuxX8664)!

 ACL2 Version 3.3 built May 5, 2008  02:56:57.
 Copyright (C) 2007  University of Texas at Austin
 ACL2 comes with ABSOLUTELY NO WARRANTY.  This is free software and you
 are welcome to redistribute it under certain conditions.  For details,
 see the GNU General Public License.

 Initialized with (INITIALIZE-ACL2 'INCLUDE-BOOK *ACL2-PASS-2-FILES*).
 See the documentation topic note-3-3 for recent changes.
 Note: We have modified the prompt in some underlying Lisps to further
 distinguish it from the ACL2 prompt.

 NOTE!!  Proof trees are disabled in ACL2.  To enable them in emacs,
 look under the ACL2 source directory in interface/emacs/README.doc; 
 and, to turn on proof trees, execute :START-PROOF-TREE in the ACL2 
 command loop.   Look in the ACL2 documentation under PROOF-TREE.

ACL2 Version 3.3.  Level 1.  Cbd 
"/v/filer4b/v8q002/hvg/parallel/pacl2-3.3/acl2-sources/".
Distributed books directory 
"/v/filer4b/v8q002/hvg/parallel/pacl2-3.3/acl2-sources/books/".
Type :help for help.
Type (good-bye) to quit completely out of ACL2.

ACL2 !>(include-book "parallel/fibonacci" :dir :system)

Summary
Form:  ( INCLUDE-BOOK "parallel/fibonacci" ...)
Rules: NIL
Warnings:  None
Time:  0.07 seconds (prove: 0.00, print: 0.00, other: 0.07)
 "/v/filer4b/v8q002/hvg/parallel/pacl2-3.3/acl2-sources/books/parallel/fibonacci.lisp"
ACL2 !>(time$ (fib 40))

(EV-REC (FARGN FORM 1) ALIST W (DECREMENT-BIG-N BIG-N) SAFE-MODE GC-OFF LATCHES HARD-ERROR-RETURNS-NILP) took 4,643,664 microseconds (4.643664 seconds) to run 
                    with 8 available CPU cores.
During that period, 4,644,291 microseconds (4.644291 seconds) were spent in user mode
                    0 microseconds (0.000000 seconds) were spent in system mode
 16 bytes of memory allocated.
 1 minor page faults, 0 major page faults, 0 swaps.
102334155
ACL2 !>(time$ (pfib 35))

(EV-REC (FARGN FORM 1) ALIST W (DECREMENT-BIG-N BIG-N) SAFE-MODE GC-OFF LATCHES HARD-ERROR-RETURNS-NILP) took 157,523 microseconds (0.157523 seconds) to run 
                    with 8 available CPU cores.
During that period, 380,023 microseconds (0.380023 seconds) were spent in user mode
                    4,001 microseconds (0.004001 seconds) were spent in system mode
4,494 microseconds (0.004494 seconds) was spent in GC.
 37,584 bytes of memory allocated.
 322 minor page faults, 0 major page faults, 0 swaps.
9227465
ACL2 !>(time$ (pfib 40))

> Error: Unable to enable process #<PROCESS Worker thread(38) [Active] #x300043A1C8ED>; have been trying for 1 seconds.
> While executing: PROCESS-ENABLE, in process Worker thread(35).


;;;
;;; #<PROCESS Worker thread(35) [Active] #x300043A1A69D> requires access to Shared Terminal Input
;;;

  C-c C-c> Break: interrupt signal
> While executing: CCL::%PROCESS-WAIT-ON-SEMAPHORE-PTR, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Return from BREAK.
> Type :? for other options.
1 > [RAW LISP] :proc
38 :    Worker thread  [Active] 
35 :    Worker thread  [semaphore wait]  (Requesting terminal input)
14 :    Worker thread  [semaphore wait] 
1 : -> listener     [Active] 
0 :    Initial      [Active] 
1 > [RAW LISP] (:y 35)


;;;
;;; Shared Terminal Input is now owned by #<PROCESS Worker thread(35) [Active] #x300043A1A69D>
;;;

> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Keep trying.
> Type :? for other options.
1 > [RAW LISP] :b
 (2AAAAD619B18) : 0 (PROCESS-ENABLE #<PROCESS Worker thread(38) [Active] #x300043A1C8ED> [...]) 405
 (2AAAAD619B68) : 1 (%PROCESS-RUN-FUNCTION '(:NAME "Worker thread") #<COMPILED-LEXICAL-CLOSURE (:INTERNAL ACL2::RUN-THREAD) #x300043A1CD7F> NIL) 1373
 (2AAAAD619C58) : 2 (PROCESS-RUN-FUNCTION "Worker thread" #<COMPILED-LEXICAL-CLOSURE (:INTERNAL ACL2::RUN-THREAD) #x300043A1CD7F> [...]) 213
 (2AAAAD619C98) : 3 (SPAWN-WORKER-THREADS-IF-NEEDED) 757
 (2AAAAD619CC8) : 4 (PARALLELIZE-CLOSURE-LIST '(# #) [...]) 669
 (2AAAAD619D78) : 5 (PARALLELIZE-FN 'ACL2::IDENTITY-LIST '(# #) [...]) 125
 (2AAAAD619DA8) : 6 (PLET-FN '(# #) #<Compiled-function (:INTERNAL ACL2::PFIB) (Non-Global)  #x300043A0488F>) 45
 (2AAAAD619DD0) : 7 (EVAL-AND-SAVE-RESULT #S(ACL2::PARALLELISM-PIECE :THREAD-ARRAY #(#<# #(35) [#] #x300043A1A69D> NIL) :RESULT-ARRAY #(NIL #) ...)) 133
 (2AAAAD619E08) : 8 (CONSUME-WORK-ON-WORK-QUEUE-WHEN-ITS-THERE) 4677
 (2AAAAD619EB8) : 9 (RUN-PROCESS-INITIAL-FORM #<PROCESS Worker thread(35) [Active] #x300043A1A69D> '(#)) 717
 (2AAAAD619F48) : 10 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)> #<PROCESS Worker thread(35) [Active] #x300043A1A69D> '(#)) 397
 (2AAAAD619F98) : 11 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 293
1 >
← 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 →
Batch Modify
Note: See TracBatchModify for help on using batch modify.
Note: See TracQuery for help on using queries.