Opened 7 years ago

Closed 7 years ago

#1210 closed defect (notabug)

Initial evaluation of Listener history

Reported by: p2 Owned by:
Priority: minor Milestone:
Component: IDE Version: trunk
Keywords: Cc:

Description

In first Listener (from boot), when a form/expression in Listener history is evaluated (by moving cursor to form end and pressing enter), the following error is printed to altconsole. Subsequent evaluations of any listener don't cause this error.

Lisp error: "The value NIL is not of the expected type CHARACTER."
 (20E4B550) : 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* #x302000B9F57D> :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL :FORMAT :TRADITIONAL) 837
  (&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* #x302000B9F57D>
   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* #x302000B9F57D>
  *PRINT-CIRCLE*: NIL

 (20E4B6B8) : 1 (MAYBE-LOG-CALLBACK-ERROR #<TYPE-ERROR #x302001294D8D>) 1421
  (CONDITION)
   CONDITION: #<TYPE-ERROR #x302001294D8D>

  GUI::EMSG: "The value NIL is not of the expected type CHARACTER."
  #:G23903: (ERROR)
  CCL::%HANDLERS%: ((ERROR) (ERROR))

 (20E4B710) : 2 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-EXT:REPORT-HEMLOCK-ERROR (HEMLOCK-INTERNALS:HEMLOCK-VIEW T T)>> #<HEMLOCK-VIEW "Listener" #x302000C03ADD> #<TYPE-ERROR #x302001294D8D> T) 53
  (GUI::VIEW CONDITION GUI::DEBUG-P)
   GUI::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
   CONDITION: #<TYPE-ERROR #x302001294D8D>
   GUI::DEBUG-P: T



 (20E4B740) : 3 (LISP-ERROR-ERROR-HANDLER #<TYPE-ERROR #x302001294D8D> :DEBUG-P T) 445
  (CONDITION &KEY :DEBUG-P)
   CONDITION: #<TYPE-ERROR #x302001294D8D>
   HEMLOCK-INTERNALS::DEBUG-P: T

  *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x302000B9F5FD>
  #:G30692: (ERROR)
  CCL::%HANDLERS%: ((ERROR))

 (20E4B7B0) : 4 (SIGNAL #<TYPE-ERROR #x302001294D8D>) 973
  (CONDITION &REST CCL::ARGS)
   CONDITION: #<TYPE-ERROR #x302001294D8D>
   CCL::ARGS: NIL

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

 (20E4B808) : 5 (%ERROR #<TYPE-ERROR #x302001294D8D> NIL 68982573) 117
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<TYPE-ERROR #x302001294D8D>
   CCL::ARGS: NIL
   CCL::ERROR-POINTER: 68982573



 (20E4B830) : 6 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 4277
  NIL

  CCL::FRAME-PTR: 68982573
  CCL::FN: #<Compiled-function LDEFS::ADD-TOP-LEVEL-POSITION #x302000D2E45F>
  CCL::OP0: 205
  CCL::OP1: 214
  CCL::OP2: 2
  CCL::SKIP: -1
  CCL::TYPENAME: CHARACTER
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFEEF0>
  CCL::XCF: #<A Foreign Pointer #x20E4B968>

 (20E4B888) : 7 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x75D1BF>) 181
  (CCL::THUNK)
   CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x75D1BF>

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

 (20E4B8C8) : 8 (FUNCALL #'#<CCL::%XERR-DISP> 17591849975082) 493
  (#:G154286)
   #:G154286: 17591849975082

  #:G154295: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE950>
  CCL::XP: #<A Foreign Pointer #x7FFF5FBFEEF0>
  CCL::XCF: #<A Foreign Pointer #x20E4B968>
  #:G154296: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x75D1BF>

 (20E4B900) : 9 (%PASCAL-FUNCTIONS% 2 17591849975082) 365
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 2
   CCL::ARGS-PTR-FIXNUM: 17591849975082

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

*(20E4B968) : 10 (ADD-TOP-LEVEL-POSITION NIL) 340
  (&OPTIONAL LDEFS::BUFFER)
   LDEFS::BUFFER: NIL

  LDEFS::BUF: #<Hemlock Buffer "Listener">
  LDEFS::MARK: #<Hemlock Mark "^">
  LDEFS::PATH: NIL
  LDEFS::START-MARK: NIL
  LDEFS::DEF-INFO: NIL

 (20E4B9F8) : 11 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-INTERNALS::EXECUTE-HEMLOCK-KEY (HEMLOCK-INTERNALS:HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW "Listener" #x302000C03ADD> HEMLOCK-INTERFACE:COPY-MARK) 1037
  (HEMLOCK-INTERNALS::VIEW HEMLOCK-INTERNALS::KEY)
   HEMLOCK-INTERNALS::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
   HEMLOCK-INTERNALS::KEY: HEMLOCK-INTERFACE:COPY-MARK

  HEMLOCK-INTERNALS::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x302000B9F5FD>
  *STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #x302000C0209D>
  HEMLOCK-INTERNALS::MAIN-BINDING: #<Hemlock Command "Editor Execute Expression">
  HEMLOCK-INTERNALS::TRANSPARENT-BINDINGS: NIL
  HEMLOCK-INTERNALS::*LAST-LAST-COMMAND-TYPE*: NIL
  HEMLOCK-INTERNALS::*LAST-PREFIX-ARGUMENT*: NIL

 (20E4BAA0) : 12 (FUNCALL #'#<(:INTERNAL (HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT (HEMLOCK-INTERNALS:HEMLOCK-VIEW T)))>) 501
  NIL

  #:G30870: #<RESTART HEMLOCK-INTERNALS::EXIT-EVENT-HANDLER #x75D32D>
  #:G30866: (#<RESTART HEMLOCK-INTERNALS::EXIT-EVENT-HANDLER #x75D32D>)
  CCL::%RESTARTS%: ((#<# # #x75D32D>) (#<# # #x75D5CD> #<# # #x75D61D>) (#<# # #x75D98D>))
  #:G30871: #<Compiled-function (:INTERNAL #) (Non-Global)  #x3000014BF38F>
  #:G30872: (ERROR #<Compiled-function # (Non-Global)  #x3000014BF38F>)
  CCL::%HANDLERS%: ((ERROR #))
  HEMLOCK-INTERNALS::KEY: #<Key-Event Enter>
  HEMLOCK-INTERNALS::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>

 (20E4BB18) : 13 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Listener"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3020012969FF>) 389
  (GUI::BUFFER GUI::THUNK)
   GUI::BUFFER: #<Hemlock Buffer "Listener">
   GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x3020012969FF>

  GUI::OLD: NIL

 (20E4BB78) : 14 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT (HEMLOCK-INTERNALS:HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW "Listener" #x302000C03ADD> #<Key-Event Enter>) 901
  (HEMLOCK-INTERNALS::VIEW HEMLOCK-INTERNALS::KEY)
   HEMLOCK-INTERNALS::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
   HEMLOCK-INTERNALS::KEY: #<Key-Event Enter>

  #:ABORT-BREAK: #<RESTART ABORT-BREAK #x75D61D>
  #:ABORT: #<RESTART ABORT #x75D5CD>
  #:G30863: (#<RESTART ABORT #x75D5CD> #<RESTART ABORT-BREAK #x75D61D>)
  CCL::%RESTARTS%: ((#<# # #x75D5CD> #<# # #x75D61D>) (#<# # #x75D98D>))
  HEMLOCK-INTERNALS::*CURRENT-VIEW*: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
  HEMLOCK-INTERNALS::*CURRENT-BUFFER*: #<Hemlock Buffer "Listener">
  HEMLOCK-INTERNALS::*NEXT-VIEW-START*: NIL
  HEMLOCK-INTERNALS::TEXT-BUFFER: #<Hemlock Buffer "Listener">
  MOD: (60 302 . 302)

 (20E4BC30) : 15 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT #> . 68982710)) 989
  (CCL::MAGIC &REST CCL::ARGS)
   CCL::MAGIC: (NIL #<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT #> . 68982710)
   CCL::ARGS: NIL

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

 (20E4BCB0) : 16 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT :AROUND (HEMLOCK-INTERNALS:HEMLOCK-VIEW T)>> #<HEMLOCK-VIEW "Listener" #x302000C03ADD> #<Key-Event Enter>) 589
  (GUI::VIEW GUI::EVENT)
   GUI::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
   GUI::EVENT: #<Key-Event Enter>

  #:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT #> . 68982710)
  #:G46353: #S(HEMLOCK-INTERNALS::SELECTION-INFO :POINT #<Hemlock Mark "^"> :%MARK #<Hemlock Mark "^[Checking for DS1511 §user: -"> ...)
  #:G46354: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x272f9a20> (#x272F9A20)>

 (20E4BD58) : 17 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT #>) 68982710) 669
  (CCL::METHODS CCL::ARGS)
   CCL::METHODS: (#<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HEMLOCK-INTERNALS::HANDLE-HEMLOCK-EVENT #>)
   CCL::ARGS: 68982710

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

 (20E4BDC8) : 18 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975420) 1117
  (#:G46291)
   #:G46291: 17591849975420

  #:G46305: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF3E0>
  GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x276e3cc0>
    Frame = {{0.00, 0.00}, {676.00, 532.00}}, Bounds = {{0.00, 0.00}, {676.00, 532.00}}
    Horizontally resizable: NO, Vertically resizable: YES
    MinSize = {676.00, 532.00}, MaxSize = {10000000.00, 10000000.00}
 (#x276E3CC0)>
  GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,582) time=17295.9 flags=0x100 win=0x0 winNum=676 ctxt=0x0 chars="" unmodchars="" repeat=0 keyCode=76 (#x3B800E70)>
  GUI::VIEW: #<HEMLOCK-VIEW "Listener" #x302000C03ADD>
  GUI::QUOTE-P: NIL
  GUI::HEMLOCK-KEY: #<Key-Event Enter>

 (20E4BE40) : 19 (%PASCAL-FUNCTIONS% 67 17591849975420) 365
  (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
   CCL::INDEX: 67
   CCL::ARGS-PTR-FIXNUM: 17591849975420

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

 (20E4BEF8) : 20 (FUNCALL #'#<Anonymous Function #x300000FBBFDF> #<LISP-APPLICATION <LispApplication: 0x3a201c60> (#x3A201C60)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x225AB413>)) 173
  (#:G3545 #:G3546)
   #:G3545: #<LISP-APPLICATION <LispApplication: 0x3a201c60> (#x3A201C60)>
   #:G3546: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x225AB413>)



 (20E4BF18) : 21 (FUNCALL #'#<(:OBJC-DISPATCH NSFUN:|run|)> ???) 541
  NIL



 (20E4BF50) : 22 (EVENT-LOOP NIL) 421
  (&OPTIONAL GUI::END-TEST)
   GUI::END-TEST: NIL

  GUI::APP: #<LISP-APPLICATION <LispApplication: 0x3a201c60> (#x3A201C60)>
  GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Reset] #x3020000B146D>
  #:ABORT: #<RESTART ABORT #x75D98D>
  #:G25744: (#<RESTART ABORT #x75D98D>)
  CCL::%RESTARTS%: ((#<# # #x75D98D>))

 (20E4BFA0) : 23 (FUNCALL #'#<(:INTERNAL GUI::COCOA-STARTUP GUI::START-COCOA-IDE)>) 1197
  NIL

  #:G25753: (CCL::*LISTENER-AUTORELEASE-POOL* *PRINT-PPRINT-DISPATCH* CCL::*FREE-XPS* CCL::*FREE-CIRCULARITY-HASH-TABLES* CCL::*LOGICAL-BLOCK-XP* ...)
  #:G25754: (NIL #<PPRINT-DISPATCH-TABLE #x302000BF25ED> NIL NIL NIL ...)
  GUI::APPLICATION-PROXY-CLASS-NAME: "LispApplicationDelegate"

this in CCL Version 1.10-dev-r15996M-trunk (DarwinX8664) and others

Change History (1)

comment:1 Changed 7 years ago by gz

  • Resolution set to notabug
  • Status changed from new to closed

this is an error signaled by LDEFS::ADD-TOP-LEVEL-POSITION, which is not part of CCL.

Note: See TracTickets for help on using tickets.