Opened 9 years ago

Closed 9 years ago

#591 closed defect (fixed)

Error in Hemlock Editor Yanking Text

Reported by: millejoh Owned by: rme
Priority: normal Milestone:
Component: IDE Version: trunk
Keywords: Cc:

Description

If I double yank a line (i.e. two C-k in succession on the same line of text) I can get Hemlock to reliably report the following (this seems like it is related to ticket #589). My CCL welcome message says "Welcome to Clozure Common Lisp Version 1.4-dev-r12696M-trunk (DarwinX8664)!" Sorry, Matt. If it is any consolation this was happening to me before I updated to r12696.

Also, sorry that this is so unreadable. Not sure what incantations I need to make so word-wrapping is more sane (like in #589).

Lisp error: "value NIL is not of the expected type NUMBER."
 (4423C0) : 0 (PRINT-CALL-HISTORY :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :DETAILED-P T :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x300041BFB2AD> :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL :FORMAT :TRADITIONAL) 845
  (&KEY :CONTEXT :PROCESS :ORIGIN :DETAILED-P :COUNT :START-FRAME-NUMBER :STREAM :PRINT-LEVEL :PRINT-LENGTH :SHOW-INTERNAL-FRAMES :FORMAT)
   CCL::CONTEXT: NIL
   PROCESS: NIL
   CCL::ORIGIN: NIL
   CCL::DETAILED-P: T
   COUNT: 1152921504606846975
   CCL::START-FRAME-NUMBER: 0
   STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #x300041BFB2AD>
   CCL::PRINT-LEVEL: 2
   CCL::PRINT-LENGTH: 5
   CCL::SHOW-INTERNAL-FRAMES: NIL
   FORMAT: :TRADITIONAL

  CCL::FRAME-NUMBER: 0
  *BACKTRACE-PRINT-LEVEL*: 2
  *BACKTRACE-PRINT-LENGTH*: 5
  *BACKTRACE-FORMAT*: :TRADITIONAL
  *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x300041BFB2AD>
  *PRINT-CIRCLE*: NIL

 (442528) : 1 (MAYBE-LOG-CALLBACK-ERROR #<TYPE-ERROR #x300041C6331D>) 1605
  (CONDITION)
   CONDITION: #<TYPE-ERROR #x300041C6331D>

  GUI::EMSG: "value NIL is not of the expected type NUMBER."
  #:G5663: (ERROR)
  CCL::%HANDLERS%: ((ERROR) (ERROR) (CONDITION #) (CONDITION #))

 (442580) : 2 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-EXT:REPORT-HEMLOCK-ERROR (HI:HEMLOCK-VIEW T T)>> #<HI:HEMLOCK-VIEW #x300041C50B3D> #<TYPE-ERROR #x300041C6331D> T) 53
  (GUI::VIEW CONDITION GUI::DEBUG-P)
   GUI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>
   CONDITION: #<TYPE-ERROR #x300041C6331D>
   GUI::DEBUG-P: T



 (4425B0) : 3 (LISP-ERROR-ERROR-HANDLER #<TYPE-ERROR #x300041C6331D> :DEBUG-P T) 445
  (CONDITION &KEY :DEBUG-P)
   CONDITION: #<TYPE-ERROR #x300041C6331D>
   HI::DEBUG-P: T

  *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x300041BFB32D>
  #:G12119: (ERROR)
  CCL::%HANDLERS%: ((ERROR) (CONDITION #) (CONDITION #))

 (442620) : 4 (SIGNAL #<TYPE-ERROR #x300041C6331D>) 973
  (CONDITION &REST CCL::ARGS)
   CONDITION: #<TYPE-ERROR #x300041C6331D>
   CCL::ARGS: NIL

  CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))
  CCL::TAG: (ERROR #<Compiled-function # (Non-Global)  #x3000415C864F>)
  CCL::HANDLERS: (ERROR #<Compiled-function # (Non-Global)  #x3000415C864F>)
  CCL::FN: #<Compiled-function (:INTERNAL #) (Non-Global)  #x3000415C864F>

 (442678) : 5 (%ERROR #<TYPE-ERROR #x300041C6331D> NIL 558311) 117
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<TYPE-ERROR #x300041C6331D>
   CCL::ARGS: NIL
   CCL::ERROR-POINTER: 558311



 (4426A0) : 6 (FUNCALL #'#<CCL::DEFAULT-REQUIRE-TYPE-RESTARTS> 558311 NIL NUMBER) 1045
  (CCL::FRAME-PTR CCL::VALUE CCL::TYPESPEC)
   CCL::FRAME-PTR: 558311
   CCL::VALUE: NIL
   CCL::TYPESPEC: NUMBER

  CONDITION: #<TYPE-ERROR #x300041C6331D>
  #:USE-VALUE: #<RESTART USE-VALUE #x49359D>
  #:G137142: (#<RESTART USE-VALUE #x49359D>)
  CCL::%RESTARTS%: ((#<# # #x49359D>) (#<# # #x4936FD>) (#<# # #x49399D> #<# # #x4939ED>) (#<# # #x493F3D>))
  #:G137143: #<TYPE-ERROR #x300041C6331D>
  CCL::*CONDITION-RESTARTS*: ((#<# # #x49359D> . #))

 (442738) : 7 (=-2 NIL 0) 3157
  (CCL::X CCL::Y)
   CCL::X: NIL
   CCL::Y: 0

  #:G166267: 3

 (442768) : 8 (COPY-LINE-CHARPROPS #<Hemlock Line "(load "ccl:tools;asdf-install;asdf-install.asd")"> :START 0 :END NIL) 261
  (HI:LINE &KEY :START :END)
   HI:LINE: #<Hemlock Line "(load "ccl:tools;asdf-install;asdf-install.asd")">
   HI::START: 0
   HI::END: NIL

  HI::CHANGES: #(#S(HI::CHARPROPS-CHANGE :INDEX 48 :PLIST NIL))

 (4427C0) : 9 (COPY-REGION #<Hemlock Region "(load "ccl:tools;asdf-install;asdf-install.asd")/">) 1533
  (HEMLOCK-INTERFACE:REGION)
   HEMLOCK-INTERFACE:REGION: #<Hemlock Region "(load "ccl:tools;asdf-install;asdf-install.asd")/">

  HI::START: #<Hemlock Mark "^(load "ccl:tools;asdf-install;asdf-install.asd")">
  HI::END: #<Hemlock Mark "^">
  HI::FIRST-LINE: #<Hemlock Line "(load "ccl:tools;asdf-install;asdf-install.asd")">
  HI::LAST-LINE: #<Hemlock Line "">
  HI::FIRST-CHARPOS: 0
  HI::LAST-CHARPOS: 0
  COUNT: 14
  HI::FIRST-CHARS: "(load \"ccl:tools;asdf-install;asdf-install.asd\")"
  LENGTH: 48
  HI::CHARS: "(load \"ccl:tools;asdf-install;asdf-install.asd\")"
  HI::FIRST-COPIED-LINE: #<Hemlock Line "(load "ccl:tools;asdf-install;asdf-install.asd")">

 (442848) : 10 (KILL-REGION #<Hemlock Region "(load "ccl:tools;asdf-install;asdf-install.asd")/"> :KILL-FORWARD) 613
  (HEMLOCK-INTERFACE:REGION HEMLOCK::CURRENT-TYPE)
   HEMLOCK-INTERFACE:REGION: #<Hemlock Region "(load "ccl:tools;asdf-install;asdf-install.asd")/">
   HEMLOCK::CURRENT-TYPE: :KILL-FORWARD

  HEMLOCK::INSERT-MARK: #<Hemlock Mark "^;(load "/Users/millejoh/Library/Application Support/Aquamacs Emacs/site-lisp/slime/swank-loader.lisp")">
  HEMLOCK::LAST-TYPE: :KILL-FORWARD

 (4428A0) : 11 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x300041C50B3D> #<Key-Event C-k>) 1061
  (HI::VIEW HI::KEY)
   HI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>
   HI::KEY: #<Key-Event C-k>

  HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x300041BFB32D>
  *STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #x300041C45B0D>
  HI::MAIN-BINDING: #<Hemlock Command "Kill Line">
  HI::TRANSPARENT-BINDINGS: NIL
  HI::*LAST-LAST-COMMAND-TYPE*: :KILL-FORWARD
  HI::*LAST-PREFIX-ARGUMENT*: NIL

 (442948) : 12 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)))>) 517
  NIL

  #:G12290: #<RESTART HI::EXIT-EVENT-HANDLER #x4936FD>
  #:G12286: (#<RESTART HI::EXIT-EVENT-HANDLER #x4936FD>)
  CCL::%RESTARTS%: ((#<# # #x4936FD>) (#<# # #x49399D> #<# # #x4939ED>) (#<# # #x493F3D>))
  #:G12291: #<Compiled-function (:INTERNAL #) (Non-Global)  #x3000415C864F>
  #:G12292: (ERROR #<Compiled-function # (Non-Global)  #x3000415C864F>)
  CCL::%HANDLERS%: ((ERROR #) (CONDITION #) (CONDITION #))
  HI::KEY: #<Key-Event C-k>
  HI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>

 (4429C0) : 13 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "ccl-init.lisp /Users/millejoh/"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x300041C63D6F>) 445
  (GUI::BUFFER GUI::THUNK)
   GUI::BUFFER: #<Hemlock Buffer "ccl-init.lisp /Users/millejoh/">
   GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x300041C63D6F>

  GUI::OLD: NIL

 (442A20) : 14 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x300041C50B3D> #<Key-Event C-k>) 893
  (HI::VIEW HI::KEY)
   HI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>
   HI::KEY: #<Key-Event C-k>

  #:ABORT-BREAK: #<RESTART ABORT-BREAK #x4939ED>
  #:ABORT: #<RESTART ABORT #x49399D>
  #:G12283: (#<RESTART ABORT #x49399D> #<RESTART ABORT-BREAK #x4939ED>)
  CCL::%RESTARTS%: ((#<# # #x49399D> #<# # #x4939ED>) (#<# # #x493F3D>))
  HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #x300041C50B3D>
  HI::*CURRENT-BUFFER*: #<Hemlock Buffer "ccl-init.lisp /Users/millejoh/">
  HI::*NEXT-VIEW-START*: NIL
  HI::TEXT-BUFFER: #<Hemlock Buffer "ccl-init.lisp /Users/millejoh/">
  MOD: (6 79 . 79)

 (442AD8) : 15 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558467)) 1005
  (CCL::MAGIC &REST CCL::ARGS)
   CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558467)
   CCL::ARGS: NIL

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

 (442B58) : 16 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x300041C50B3D> #<Key-Event C-k>) 173
  (GUI::VIEW GUI::EVENT)
   GUI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>
   GUI::EVENT: #<Key-Event C-k>

  #:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558467)
  #:G26780: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x12c9ae70> (#x12C9AE70)>

 (442BC0) : 17 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 558467) 693
  (CCL::METHODS CCL::ARGS)
   CCL::METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
   CCL::ARGS: 558467

  CCL::CAR-METHS: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>
  CCL::CELL-2: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558467)
  CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 558467)
  #:G105081: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>

 (442C30) : 18 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975400) 1253
  (#:G26746)
   #:G26746: 17591849975400

  #:G26761: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF340>
  #:G26747: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF340>
  #:COMPILER-VAR: (NIL)
  #:G26751: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|) #x493BDF>
  #:G26762: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493BDF>)
  CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))
  GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x12cdd420>
    Frame = {{0.00, 0.00}, {717.00, 868.00}}, Bounds = {{0.00, 0.00}, {717.00, 868.00}}
    Horizontally resizable: YES, Vertically resizable: YES
    MinSize = {717.00, 504.00}, MaxSize = {10000000.00, 10000000.00}
 (#x12CDD420)>
  GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>
  GUI::VIEW: #<HI:HEMLOCK-VIEW #x300041C50B3D>
  GUI::QUOTE-P: NIL
  GUI::HEMLOCK-KEY: #<Key-Event C-k>

 (442CB0) : 19 (%PASCAL-FUNCTIONS% 73 17591849975400) 365
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 73
   CCL::ARGS-PTR-FIXNUM: 17591849975400

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

 (442D70) : 20 (FUNCALL #'#<Anonymous Function #x3000414963DF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF7F0> #<A Foreign Pointer #x7FFF80F72D48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>) 365
  (#:G5019 #:G5020 CCL::ARG0)
   #:G5019: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF7F0>
   #:G5020: #<A Foreign Pointer #x7FFF80F72D48>
   CCL::ARG0: #<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>



 (442D98) : 21 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x134890)> #<A Foreign Pointer #x7FFF80F72D48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>) 773
  (CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
   CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>
   CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x134890)>
   CCL::SELECTOR: #<A Foreign Pointer #x7FFF80F72D48>
   CCL::SIG: (:VOID :ID)
   CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>)

  CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF7F0>
  CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE (:VOID :ID) :FUNCTION #<Anonymous Function #x30004149325F> ...)
  FUNCTION: #<Anonymous Function #x3000414963DF>

 (442DF8) : 22 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975592) 965
  (#:G5841)
   #:G5841: 17591849975592

  #:G5856: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF940>
  #:G5842: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF940>
  #:COMPILER-VAR: (NIL)
  #:G5846: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[LispApplication sendEvent:]|) #x493D6F>
  #:G5857: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493D6F>)
  CCL::%HANDLERS%: ((CONDITION #))
  GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>
  GUI::E: #<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>
  CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,556) time=153726.9 flags=0x40101 win=0x0 winNum=4225 ctxt=0x0 chars="" unmodchars="k" repeat=0 keyCode=40 (#x12CBBDF0)>)

 (442E68) : 23 (%PASCAL-FUNCTIONS% 15 17591849975592) 365
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 15
   CCL::ARGS-PTR-FIXNUM: 17591849975592

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

 (442F28) : 24 (FUNCALL #'#<Anonymous Function #x3000413E5C7F> #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF81029D68>)) 173
  (#:G3269 #:G3270)
   #:G3269: #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>
   #:G3270: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF81029D68>)



 (442F48) : 25 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>) 485
  (CCL::RECEIVER &REST CCL::ARGS)
   CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>
   CCL::ARGS: NIL

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

 (442F88) : 26 (EVENT-LOOP NIL) 989
  (&OPTIONAL GUI::END-TEST)
   GUI::END-TEST: NIL

  GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1cb9a0> (#x1CB9A0)>
  GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Active] #x3000404BDF6D>
  #:ABORT: #<RESTART ABORT #x493F3D>
  #:G7928: (#<RESTART ABORT #x493F3D>)
  CCL::%RESTARTS%: ((#<# # #x493F3D>))


Change History (3)

comment:1 Changed 9 years ago by rme

  • Owner set to rme
  • Status changed from new to assigned

comment:2 Changed 9 years ago by rme

Argh. I think r12701 should help with this. Sorry.

comment:3 Changed 9 years ago by millejoh

  • Resolution set to fixed
  • Status changed from assigned to closed

Much better, that seems to have done the trick. Thank you!

Note: See TracTickets for help on using tickets.