[Openmcl-devel] Another small listener bug
Willem Rein Oudshoorn
woudshoo at xs4all.nl
Wed Sep 8 13:52:01 PDT 2010
In the pre-build clozure 1.5-r13651 (DarwinX8664) the following scenario
generates an error dialog:
1. Copy from a text editer the expression marked between [ and ] in the
listener:
[
(+ 1 2)]
(Notice the newline before the expression)
2. After pasting, press the enter key to evaluate the expression.
3. You get the following error:
value NIL is not of the expected type REAL.
4. The AltConsole gives the following error:
Lisp error: "value NIL is not of the expected type REAL."
(44B370) : 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* #x302000C59AED> :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* #x302000C59AED>
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* #x302000C59AED>
*PRINT-CIRCLE*: NIL
(44B4D8) : 1 (MAYBE-LOG-CALLBACK-ERROR #<TYPE-ERROR #x302000D4EF6D>) 1605
(CONDITION)
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
GUI::EMSG: "value NIL is not of the expected type REAL."
#:G19245: (ERROR)
CCL::%HANDLERS%: ((ERROR) (ERROR) (CONDITION #) (CONDITION #))
(44B530) : 2 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-EXT:REPORT-HEMLOCK-ERROR (HI:HEMLOCK-VIEW T T)>> #<HI:HEMLOCK-VIEW #x302000D28FCD> #<TYPE-ERROR #x302000D4EF6D> T) 53
(GUI::VIEW CONDITION GUI::DEBUG-P)
GUI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
GUI::DEBUG-P: T
(44B560) : 3 (LISP-ERROR-ERROR-HANDLER #<TYPE-ERROR #x302000D4EF6D> :DEBUG-P T) 445
(CONDITION &KEY :DEBUG-P)
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
HI::DEBUG-P: T
*STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x302000C59B6D>
#:G25961: (ERROR)
CCL::%HANDLERS%: ((ERROR) (CONDITION #) (CONDITION #))
(44B5D0) : 4 (SIGNAL #<TYPE-ERROR #x302000D4EF6D>) 973
(CONDITION &REST CCL::ARGS)
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
CCL::ARGS: NIL
CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))
CCL::TAG: (ERROR #<Compiled-function # (Non-Global) #x300001239CBF>)
CCL::HANDLERS: (ERROR #<Compiled-function # (Non-Global) #x300001239CBF>)
CCL::FN: #<Compiled-function (:INTERNAL #) (Non-Global) #x300001239CBF>
(44B628) : 5 (%ERROR #<TYPE-ERROR #x302000D4EF6D> NIL 562909) 117
(CONDITION CCL::ARGS CCL::ERROR-POINTER)
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
CCL::ARGS: NIL
CCL::ERROR-POINTER: 562909
(44B650) : 6 (FUNCALL #'#<CCL::DEFAULT-REQUIRE-TYPE-RESTARTS> 562909 NIL REAL) 1069
(CCL::FRAME-PTR CCL::VALUE CCL::TYPESPEC)
CCL::FRAME-PTR: 562909
CCL::VALUE: NIL
CCL::TYPESPEC: REAL
CONDITION: #<TYPE-ERROR #x302000D4EF6D>
#:USE-VALUE: #<RESTART USE-VALUE #x49C59D>
#:G137320: (#<RESTART USE-VALUE #x49C59D>)
CCL::%RESTARTS%: ((#<# # #x49C59D>) (#<# # #x49C6FD>) (#<# # #x49C99D> #<# # #x49C9ED>) (#<# # #x49CF3D>))
#:G137321: #<TYPE-ERROR #x302000D4EF6D>
CCL::*CONDITION-RESTARTS*: ((#<# # #x49C59D> . #))
#:G137324: #<TYPE-ERROR #x302000D4EF6D>
(44B6E8) : 7 (>-2 0 NIL) 413
(CCL::X CCL::Y)
CCL::X: 0
CCL::Y: NIL
#:G167198: 0
#:G167201: 3
(44B718) : 8 (<=-2 0 NIL) 37
(CCL::X CCL::Y)
CCL::X: 0
CCL::Y: NIL
(44B738) : 9 (COPY-LINE-CHARPROPS #<Hemlock Line "? "> :START 2 :END 2) 1157
(HI:LINE &KEY :START :END)
HI:LINE: #<Hemlock Line "? ">
HI::START: 2
HI::END: 2
HI::CHANGES: #(#S(HI::CHARPROPS-CHANGE :INDEX 2 :PLIST NIL))
HI::NEW-CHANGES: #()
HI::START-IDX: 0
HI::END-IDX: NIL
HI::I: 0
(44B7A8) : 10 (COPY-REGION #<Hemlock Region "/(+ 1 2)">) 1541
(HEMLOCK-INTERFACE:REGION)
HEMLOCK-INTERFACE:REGION: #<Hemlock Region "/(+ 1 2)">
HI::START: #<Hemlock Mark "? ^">
HI::END: #<Hemlock Mark "(+ 1 2)^">
HI::FIRST-LINE: #<Hemlock Line "? ">
HI::LAST-LINE: #<Hemlock Line "(+ 1 2)">
HI::FIRST-CHARPOS: 2
HI::LAST-CHARPOS: 7
COUNT: 9
HI::FIRST-CHARS: "? "
LENGTH: 0
HI::CHARS: ""
HI::FIRST-COPIED-LINE: #<Hemlock Line "">
(44B830) : 11 (SEND-INPUT-REGION-TO-LISP) 909
NIL
HEMLOCK::INPUT-MARK: #<Hemlock Mark "? ^">
HEMLOCK::END-MARK: #<Hemlock Mark "(+ 1 2)^">
HEMLOCK::INPUT-REGION: #<Hemlock Region "/(+ 1 2)">
HEMLOCK::R: #<Hemlock Region "/(+ 1 2)">
STRING: "
(+ 1 2)"
HI:RING: #<Hemlock Ring>
(44B880) : 12 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x302000D28FCD> #<Key-Event Return>) 1085
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
HI::KEY: #<Key-Event Return>
HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #x302000C59B6D>
*STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #x302000D2584D>
HI::MAIN-BINDING: #<Hemlock Command "Confirm Listener Input">
HI::TRANSPARENT-BINDINGS: NIL
HI::*LAST-LAST-COMMAND-TYPE*: NIL
HI::*LAST-PREFIX-ARGUMENT*: NIL
(44B930) : 13 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)))>) 517
NIL
#:G26132: #<RESTART HI::EXIT-EVENT-HANDLER #x49C6FD>
#:G26128: (#<RESTART HI::EXIT-EVENT-HANDLER #x49C6FD>)
CCL::%RESTARTS%: ((#<# # #x49C6FD>) (#<# # #x49C99D> #<# # #x49C9ED>) (#<# # #x49CF3D>))
#:G26133: #<Compiled-function (:INTERNAL #) (Non-Global) #x300001239CBF>
#:G26134: (ERROR #<Compiled-function # (Non-Global) #x300001239CBF>)
CCL::%HANDLERS%: ((ERROR #) (CONDITION #) (CONDITION #))
HI::KEY: #<Key-Event Return>
HI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
(44B9A8) : 14 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Listener"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x302000D5003F>) 453
(GUI::BUFFER GUI::THUNK)
GUI::BUFFER: #<Hemlock Buffer "Listener">
GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #x302000D5003F>
GUI::OLD: NIL
(44BA08) : 15 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x302000D28FCD> #<Key-Event Return>) 893
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
HI::KEY: #<Key-Event Return>
#:ABORT-BREAK: #<RESTART ABORT-BREAK #x49C9ED>
#:ABORT: #<RESTART ABORT #x49C99D>
#:G26125: (#<RESTART ABORT #x49C99D> #<RESTART ABORT-BREAK #x49C9ED>)
CCL::%RESTARTS%: ((#<# # #x49C99D> #<# # #x49C9ED>) (#<# # #x49CF3D>))
HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #x302000D28FCD>
HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Listener">
HI::*NEXT-VIEW-START*: NIL
HI::TEXT-BUFFER: #<Hemlock Buffer "Listener">
MOD: (3 76 . 76)
(44BAC0) : 16 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)) 1021
(CCL::MAGIC &REST CCL::ARGS)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
CCL::ARGS: NIL
CCL::NEXT-METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 563077
CDR: NIL
METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>
#:G103830: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
#:G103831: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>
#:G103832: 563077
(44BB58) : 17 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #x302000D28FCD> #<Key-Event Return>) 173
(GUI::VIEW GUI::EVENT)
GUI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
GUI::EVENT: #<Key-Event Return>
#:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
#:G40701: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x11a8c0> (#x11A8C0)>
(44BBC0) : 18 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 563077) 709
(CCL::METHODS CCL::ARGS)
CCL::METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 563077
CCL::CAR-METHS: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>
CCL::CELL-2: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
#:G103766: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 563077)
#:G103767: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>
#:G103768: 563077
(44BC40) : 19 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> 17591849975416) 1261
(#:G40667)
#:G40667: 17591849975416
#:G40682: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF3C0>
#:G40668: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF3C0>
#:COMPILER-VAR: (NIL)
#:G40672: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|) #x49CBDF>
#:G40683: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x49CBDF>)
CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))
GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0xc99ee00>
Frame = {{0.00, 0.00}, {1124.00, 560.00}}, Bounds = {{0.00, 0.00}, {1124.00, 560.00}}
Horizontally resizable: NO, Vertically resizable: YES
MinSize = {1124.00, 560.00}, MaxSize = {10000000.00, 10000000.00}
(#xC99EE00)>
GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>
GUI::VIEW: #<HI:HEMLOCK-VIEW #x302000D28FCD>
GUI::QUOTE-P: NIL
GUI::HEMLOCK-KEY: #<Key-Event Return>
(44BCC0) : 20 (%PASCAL-FUNCTIONS% 73 17591849975416) 365
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 73
CCL::ARGS-PTR-FIXNUM: 17591849975416
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[HemlockTextstorageTextView keyDown:]| (Non-Global) #x3000014E254F>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(44BD78) : 21 (FUNCALL #'#<Anonymous Function #x300000E6CBFF> #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF870> #<A Foreign Pointer #x7FFF8023CD48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>) 373
(#:G5748 #:G5749 CCL::ARG0)
#:G5748: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF870>
#:G5749: #<A Foreign Pointer #x7FFF8023CD48>
CCL::ARG0: #<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>
(44BDA8) : 22 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)> #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x134450)> #<A Foreign Pointer #x7FFF8023CD48> (:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>) 773
(CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)>
CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x134450)>
CCL::SELECTOR: #<A Foreign Pointer #x7FFF8023CD48>
CCL::SIG: (:VOID :ID)
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>)
CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF870>
CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE (:VOID :ID) :FUNCTION #<Anonymous Function #x300000E6BC2F> ...)
FUNCTION: #<Anonymous Function #x300000E6CBFF>
(44BE08) : 23 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975608) 965
(#:G19424)
#:G19424: 17591849975608
#:G19439: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF9C0>
#:G19425: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF9C0>
#:COMPILER-VAR: (NIL)
#:G19429: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[LispApplication sendEvent:]|) #x49CD6F>
#:G19440: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x49CD6F>)
CCL::%HANDLERS%: ((CONDITION #))
GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)>
GUI::E: #<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,612) time=133132.8 flags=0 win=0x0 winNum=220234 ctxt=0x0 chars="
" unmodchars="
" repeat=0 keyCode=36 (#xC9C52C0)>)
(44BE78) : 24 (%PASCAL-FUNCTIONS% 15 17591849975608) 365
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 15
CCL::ARGS-PTR-FIXNUM: 17591849975608
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[LispApplication sendEvent:]| (Non-Global) #x30000113756F>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(44BF30) : 25 (FUNCALL #'#<Anonymous Function #x300000DD6E4F> #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF802F3D68>)) 173
(#:G3257 #:G3258)
#:G3257: #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)>
#:G3258: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF802F3D68>)
(44BF50) : 26 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|run|)> ???) 565
NIL
(44BF88) : 27 (EVENT-LOOP NIL) 421
(&OPTIONAL GUI::END-TEST)
GUI::END-TEST: NIL
GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1c5f10> (#x1C5F10)>
GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Active] #x3020000B4FDD>
#:ABORT: #<RESTART ABORT #x49CF3D>
#:G21702: (#<RESTART ABORT #x49CF3D>)
CCL::%RESTARTS%: ((#<# # #x49CF3D>))
More information about the Openmcl-devel
mailing list