Custom Query (1030 matches)

I'm not a language lawyer but it doesn't seem right that #_ is in the standard readtable:

Welcome to Clozure Common Lisp Version 1.4-dev-r12409M-trunk  (Linuxx8632)!
? (setq *readtable* (copy-readtable nil))
#<readtable #x14AD5676>
? (#_tmpnam (ccl:%null-ptr))
#<A Foreign Pointer #xB7F7A08C>
?

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 > 

if you double click to the right (the end) of a defun (for example) to mark it and then hit enter to evalue it this also collapse the marking. but the cursor is now up on the left side (the beginning) of the defun form. if you double click up to the left to mark and then enter-collaps the cursor is now on the other side down on the right side (the end) of the defun form.