Custom Query (1030 matches)
Results (382 - 384 of 1030)
| Ticket | Resolution | Summary | Owner | Reporter |
|---|---|---|---|---|
| #591 | fixed | Error in Hemlock Editor Yanking Text | ||
| 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>))
|
|||
| #1275 | fixed | create-jvm broken in ccl's jni.lisp | ||
| Description |
library/jni.lisp defines create-jvm, which calls ccl::call-with-string-vector with two arguments; ccl::call-with-string-vector requires three. Supplying an encoding, e.g. :us-ascii, appears to fix the problem. |
|||
| #53 | fixed | Implement a Lisp/Cocoa version of Apple's currency-conversion example | ||
| Description |
Apple's currency-conversion example is simple enough that essentially the only things one learns in implementing it are Cocoa APIs. It can therefore serve as a way to illustrate how OpenMCL's Cocoa bridge supports those APIs, and so is a good candidate for a first example program. |
|||
