Custom Query (1030 matches)

If the CCL IDE bundle is moved out of the CCL directory and executed, certain functions will fail (e.g. just do #&NSApp in the listener and see what happens). This is because the ccl: logical translation no longer points to the CCL directory, but rather to whatever directory the bundle is in. This is set by the init-ccl-directory-for-ide function. This could also be a problem for any saved applications depending on what they do. There are various ways this could be addressed: 1) add a new value into the Info.plist identifying the CCL directory and use it to initialize the ccl: translation 2) Modify init-ccl-directory-for-ide to search for the right directory 3) create a physical link to the CCL directory in the bundle somewhere and use that as the translation for the ccl: logical directory, 4) add a user preference that identifies where the CCL directory is and use that to initialize the translation. I prefer #4 because it is easier to change if the bundle is moved to a different machine or if the CCL directory is moved at some point. #2 is intriguing but depending on how the search is done, could take a significant amount of time. So I am requesting an enhancement to the IDE that adds a preference item identifying the CCL directory. It should default to the value currently used. In the meantime I will assure that applications that my tools generate will reset the logical translation in some way.

After a long period of stability I'm starting to get Hemlock crashes again. Here's an example. Not much additional info at the moment.

> Error: value NIL is not of the expected type STRUCTURE.
> While executing: (:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|), in process Initial(0).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (441E98) : 0 (FUNCALL #'#<(:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|)> #<TYPE-ERROR #x300041F9E76D>) 149
 (441EC0) : 1 (SIGNAL #<TYPE-ERROR #x300041F9E76D>) 981
 (441F18) : 2 (%ERROR #<TYPE-ERROR #x300041F9E76D> NIL 558095) 117
 (441F40) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4597
 (441F98) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x492EBF>) 181
 (441FD8) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849974758) 493
 (442010) : 6 (%PASCAL-FUNCTIONS% 2 17591849974758) 397
*(442078) : 8 (GET-BINDING-IN-BUFFER #(#<Key-Event Uparrow>) NIL) 35
 (4420D8) : 9 (GET-CURRENT-BINDING #(#<Key-Event Uparrow>)) 117
 (442120) : 10 (FUNCALL #'#<#<STANDARD-METHOD HI::TRANSLATE-AND-LOOKUP-COMMAND (T)>> #(#<Key-Event Uparrow>)) 189
 (442150) : 11 (FUNCALL #'#<#<STANDARD-METHOD HI::GET-COMMAND-BINDING-FOR-KEY (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CCDCED> #<Key-Event Uparrow>) 333
 (442188) : 12 (FUNCALL #'#<#<STANDARD-METHOD HI::BOUND-TO-SYSTEM-DEFAULT-BEHAVIOR-P (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CCDCED> #<Key-Event Uparrow>) 45
 (4421A8) : 13 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975114) 1349
 (442230) : 14 (%PASCAL-FUNCTIONS% 73 17591849975114) 397
 (4422F0) : 16 (FUNCALL #'#<Anonymous Function #x300041439BDF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFEF00> #<A Foreign Pointer #x7FFF80772D48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779910.9 flags=0xa00100 win=0x0 winNum=14626 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=126 (#xB2C14E0)>) 397
 (442318) : 17 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1342A0)> #<A Foreign Pointer #x7FFF80772D48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779910.9 flags=0xa00100 win=0x0 winNum=14626 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=126 (#xB2C14E0)>) 837
 (442378) : 18 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975294) 1141
 (4423F0) : 19 (%PASCAL-FUNCTIONS% 15 17591849975294) 397
 (4424B0) : 21 (FUNCALL #'#<Anonymous Function #x30004139141F> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF80829D68>)) 205
 (4424D0) : 22 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)>) 501
 (442510) : 23 (EVENT-LOOP #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC1A6F>) 1093
 (442568) : 24 (FUNCALL #'#<(:INTERNAL PARSE-FOR-SOMETHING)>) 557
 (442600) : 25 (INVOKE-MODIFYING-BUFFER-STORAGE NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC0E0F>) 445
 (442660) : 26 (FUNCALL #'#<(:INTERNAL PARSE-FOR-SOMETHING)>) 725
 (442700) : 27 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Echo Area 2"> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL PARSE-FOR-SOMETHING) #x300041DC149F>) 445
 (442760) : 28 (PARSE-FOR-SOMETHING :VERIFICATION-FUNCTION #<Compiled-function (:INTERNAL PROMPT-FOR-EXPRESSION) (Non-Global)  #x30004166242F> :TYPE :STRING :STRING-TABLES NIL :VALUE-MUST-EXIST T :DEFAULT-STRING NIL :DEFAULT NIL :PROMPT "Editor Eval: " :HELP "Expression to evaluate" :KEY-HANDLER NIL) 645
 (442828) : 29 (EDITOR-EVALUATE-EXPRESSION-COMMAND NIL) 717
 (442880) : 30 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 1069
 (442938) : 31 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HEMLOCK-VIEW T)))>) 549
 (4429B0) : 32 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Hemlock-hacks.lisp /Users/ron/devel/Lisp code/"> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x300041DC151F>) 445
 (442A10) : 33 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 925
 (442AC8) : 34 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558465)) 1069
 (442B48) : 35 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW #x300041CBEEDD> #<Key-Event Escape>) 173
 (442BB0) : 36 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 558465) 773
 (442C20) : 38 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975338) 1429
 (442CA8) : 39 (%PASCAL-FUNCTIONS% 73 17591849975338) 397
 (442D68) : 41 (FUNCALL #'#<Anonymous Function #x300041439BDF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF600> #<A Foreign Pointer #x7FFF80772D48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779885.1 flags=0x100 win=0x0 winNum=14624 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=53 (#xB271A10)>) 397
 (442D90) : 42 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1342A0)> #<A Foreign Pointer #x7FFF80772D48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,948) time=779885.1 flags=0x100 win=0x0 winNum=14624 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=53 (#xB271A10)>) 837
 (442DF0) : 43 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975518) 1141
 (442E68) : 44 (%PASCAL-FUNCTIONS% 15 17591849975518) 397
 (442F28) : 46 (FUNCALL #'#<Anonymous Function #x30004139141F> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF80829D68>)) 205
 (442F48) : 47 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1ca9a0> (#x1CA9A0)>) 501
 (442F88) : 48 (EVENT-LOOP NIL) 1093
1 > 

The information seems to still be generally informative and accurate as far as it goes, but deals with things as of 1.1x.