Custom Query (1030 matches)
Results (721 - 723 of 1030)
| Ticket | Resolution | Summary | Owner | Reporter |
|---|---|---|---|---|
| #1131 | fixed | 1.10 compiler bug on (ql:quickload :clx) ? | ||
| Description |
There seem to be a bug in the compiler in 1.10 that can be reproduced with: (ql:quickload :clx) cl-user> (print-bug-report-info) LISP-IMPLEMENTATION-TYPE "Clozure Common Lisp" LISP-IMPLEMENTATION-VERSION "Version 1.10-dev-r15972M-trunk (Linuxx8664)" SOFTWARE-TYPE "Linux" SOFTWARE-VERSION "3.2.0-4-amd64" MACHINE-INSTANCE "kuiper" MACHINE-TYPE "x86_64" MACHINE-VERSION "Intel(R) Core(TM) i7 CPU 950 @ 3.07GHz" *FEATURES* (:clx-mit-r5 :clx-mit-r4 :xlib :clx :clx-little-endian :clx-ansi-common-lisp :little-endian :rune-is-character :swank :com.informatimago.pjb :newline-is-linefeed :has-ascii-code :has-vt :has-bell :has-escape :has-linefeed :has-return :has-backspace :has-tab :has-page :has-rubout :quicklisp :asdf3 :asdf2 :asdf :os-unix :asdf-unicode :primary-classes :common-lisp :openmcl :ccl :ccl-1.2 :ccl-1.3 :ccl-1.4 :ccl-1.5 :ccl-1.6 :ccl-1.7 :ccl-1.8 :clozure :clozure-common-lisp :ansi-cl :unix :openmcl-unicode-strings :openmcl-native-threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 :openmcl-private-hash-tables :x86-64 :x86_64 :x86-target :x86-host :x8664-target :x8664-host :linux-host :linux-target :linuxx86-target :linuxx8664-target :linuxx8664-host :64-bit-target :64-bit-host :linux :little-endian-target :little-endian-host) ; No value cl-user> bad regspec: nil
[Condition of type simple-error]
Restarts:
0: [retry-compile-file] Retry compiling #P"/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp"
1: [skip-compile-file] Skip compiling #P"/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp"
2: [retry] Retry compiling #<clx-source-file "clx" "input">.
3: [accept] Continue, treating compiling #<clx-source-file "clx" "input"> as having been successful.
4: [abort] Give up on "clx"
5: [abort] Give up on "abnotation"
--more--
Backtrace:
0: (ccl::%hard-regspec-value nil)
1: (ccl::match-vreg nil :u8 #<misc-set-c-u8> #(0 0 0 0 0 0 0 0 0 0) 0)
2: (ccl::match-template-vregs #S(ccl::vinsn-template :name ccl::misc-set-c-u8 :result-vreg-specs (#1=(ccl::val :u..
3: (ccl::select-vinsn ccl::misc-set-c-u8 #<hash-table :test eq size 540/687 #x3020001B6BAD> (nil 8 2))
4: (ccl::%emit-vinsn #<dll-header #x30200296D5CD> ccl::misc-set-c-u8 #<hash-table :test eq size 540/687 #x302000..
5: (ccl::x862-emit-vinsn #<dll-header #x30200296D5CD> ccl::misc-set-c-u8 #<hash-table :test eq size 540/687 #x30..
6: (ccl::x862-vset1 #<dll-header #x30200296D5CD> nil nil :unsigned-8-bit-vector 8 nil 2 nil nil 0 nil)
7: (ccl::x862-form #<dll-header #x30200296D5CD> nil nil (9375 (24616 :unsigned-8-bit-vector) (27 (simple-array (..
8: (ccl::x862-progn #<dll-header #x30200296D5CD> 6 nil ((9375 (24616 :unsigned-8-bit-vector) (27 (simple-array (..
9: (ccl::x862-form #<dll-header #x30200296D5CD> 6 nil (22529 ((9375 (24616 :unsigned-8-bit-vector) (27 #2=(simpl..
10: (ccl::x862-form #<dll-header #x30200296D5CD> 6 nil (22529 ((42 (24616 ccl::%lock-recursive-lock-object) (nil ..
11: (ccl::x862-undo-body #<dll-header #x30200296D5CD> 6 nil (22529 ((42 (24616 ccl::%lock-recursive-lock-object) ..
12: (ccl::x862-form #<dll-header #x30200296D5CD> 6 nil (56 (22529 ((42 (24616 ccl::%lock-recursive-lock-object) (..
13: (ccl::x862-undo-body #<dll-header #x30200287FAFD> nil nil (56 (22529 ((42 (24616 ccl::%lock-recursive-lock-ob..
14: (ccl::x862-let #<dll-header #x30200287FAFD> nil nil (#<var #:g40649 #x30200287755D> #<var #:g40650 #x30200287..
15: (ccl::x862-form #<dll-header #x30200287FAFD> nil nil (28 (#1=#<var #:g40649 #x30200287755D> #2=#<var #:g40650..
16: (ccl::x862-form #<dll-header #x30200287FAFD> nil nil (22529 ((5135 (27 t (25678 (27 xlib:display (27 xlib:dis..
17: (ccl::x862-let #<dll-header #x30200287FAFD> nil nil nil nil (22529 ((5135 (27 t (25678 (27 xlib:display (27 x..
18: (ccl::x862-form #<dll-header #x30200287FAFD> nil nil (28 nil nil (22529 ((5135 (27 t (25678 (27 xlib:display ..
19: (ccl::x862-progn #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 ((28 nil nil (28 (#2=#<var #:g406..
20: (ccl::x862-form #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (22529 ((5135 (62466 (24616 :eq) (..
21: (ccl::x862-form #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (22529 ((27 (or null (unsigned-byt..
22: (ccl::x862-undo-body #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (22529 ((27 (or null (unsigne..
23: (ccl::x862-let* #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (#<var xlib::event #x30200286984D>..
24: (ccl::x862-form #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (29 (#1=#<var xlib::event #x302002..
25: (ccl::x862-form #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (22529 ((5135 (62466 (24616 :eq) (..
26: (ccl::x862-form #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (22529 ((27 (or (member :key-press..
27: (ccl::x862-lambda #<dll-header #x30200287FAFD> #<lreg 0 GPR [6]/lisp> 262143 (#<var xlib:display #x30200286A1..
28: (ccl::x862-compile #<ccl::afunc #x30200286A27D> nil t)
29: (ccl::compile-named-function (lambda (xlib:display xlib:event-key &rest xlib::args &key xlib::append-p xlib::s..
30: (ccl::fcomp-named-function (lambda (xlib:display xlib:event-key &rest xlib::args &key xlib::append-p xlib::sen..
31: (ccl::fcomp-load-%defun (ccl::%defun (ccl:nfunction xlib:queue-event (lambda (xlib:display xlib:event-key &res..
32: (ccl::fcomp-form (ccl::%defun (ccl:nfunction xlib:queue-event (lambda (xlib:display xlib:event-key &rest xlib:..
33: (ccl::fcomp-form-list ((ccl::%defun (ccl:nfunction xlib:queue-event (lambda (xlib:display xlib:event-key &rest..
34: (ccl::fcomp-form (progn (ccl::%defun (ccl:nfunction xlib:queue-event (lambda (xlib:display xlib:event-key &res..
35: (ccl::fcomp-form (defun xlib:queue-event (xlib:display xlib:event-key &rest xlib::args &key xlib::append-p xli..
36: (ccl::fcomp-read-loop "/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp" "home:quickli..
37: (ccl::fcomp-file "/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp" "home:quicklisp;di..
38: (ccl::%compile-file "/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp" "/home/pjb/.cac..
39: (compile-file #P"/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp" :output-file #P"/ho..
40: (uiop/pathname:call-with-enough-pathname #P"/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/inpu..
41: (uiop/utility:call-with-muffled-conditions #<ccl:compiled-lexical-closure (:internal uiop/lisp-build:compile-f..
42: (uiop/lisp-build:compile-file* #P"/home/pjb/quicklisp/dists/quicklisp/software/clx-20131003-git/input.lisp" :o..
43: (uiop/utility:call-with-muffled-conditions #<ccl:compiled-lexical-closure (:internal asdf/lisp-action:perform-..
44: (funcall #<ccl:compiled-lexical-closure (:internal asdf/lisp-action:perform-lisp-compilation) #x30200279A94F>)
45: (asdf/lisp-action:perform-lisp-compilation #<compile-op > #<clx-source-file "clx" "input">)
46: (ccl::%%before-and-after-combined-method-dcode (nil #<standard-method asdf/action:perform (asdf/lisp-action:co..
47: (ccl::%call-next-method (nil #<standard-method asdf/action:perform (asdf/lisp-action:compile-op asdf/lisp-acti..
48: (#<standard-method asdf/action:perform :around (t t)> #<compile-op > #<clx-source-file "clx" "input">)
49: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/action:perform :around (t t)> (#<standard-metho..
50: (nil #<Unknown Arguments>)
51: (ccl::%call-next-method (nil #<standard-method asdf/action:perform-with-restarts (t t)> . 17575325388418))
52: (#<standard-method asdf/action:perform-with-restarts :around (t t)> #<compile-op > #<clx-source-file "clx" "in..
53: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/action:perform-with-restarts :around (t t)> #<s..
54: (nil #<Unknown Arguments>)
55: (#<standard-method asdf/plan:perform-plan (list)> ((#1=#<prepare-op > . #76=#<system #2="clx">) (#1# . #3=#<cl..
56: (ccl::%call-next-method (nil #<standard-method asdf/plan:perform-plan (list)> . 17575325388481))
57: (ccl::call-with-compilation-unit #<ccl:compiled-lexical-closure (:internal ccl::with-compilation-unit-body (as..
58: (#<standard-method asdf/plan:perform-plan :around (t)> ((#1=#<prepare-op > . #76=#<system #2="clx">) (#1# . #3..
59: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/plan:perform-plan :around (t)> #<standard-metho..
60: (nil #<Unknown Arguments>)
61: (ccl::%call-next-method (nil #<standard-method asdf/plan:perform-plan (t)> . 17575325388535))
62: (ccl::call-with-compilation-unit #<ccl:compiled-lexical-closure (:internal ccl::with-compilation-unit-body (as..
63: (#<standard-method asdf/plan:perform-plan :around (t)> #<asdf/plan:sequential-plan #x30200237A0BD>)
64: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/plan:perform-plan :around (t)> #<standard-metho..
65: (nil #<Unknown Arguments>)
66: (#<standard-method asdf/operate:operate (asdf/operation:operation asdf/component:component)> #<load-op :verbos..
67: (ccl::%call-next-method ((nil) #<standard-method asdf/operate:operate (asdf/operation:operation asdf/component..
68: ((:internal (asdf/operate:operate :around (t t))))
69: (#<standard-method asdf/operate:operate :around (t t)> #<load-op :verbose nil> #<system "clx"> :verbose nil)
70: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/operate:operate :around (t t)> (#<standard-meth..
71: (nil #<Unknown Arguments>)
72: (ccl::%call-next-method ((nil) #<standard-method asdf/operate:operate (symbol t)> asdf/lisp-action:load-op "cl..
73: ((:internal (asdf/operate:operate :around (t t))))
74: (#<standard-method asdf/operate:operate :around (t t)> asdf/lisp-action:load-op "clx" :verbose nil)
75: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/operate:operate :around (t t)> (#<standard-meth..
76: (nil #<Unknown Arguments>)
77: ((:internal quicklisp-client::apply-load-strategy))
78: (quicklisp-client::call-with-macroexpand-progress #<ccl:compiled-lexical-closure (:internal quicklisp-client::..
79: (quicklisp-client::apply-load-strategy #<load-strategy "clx" (0 asdf, 1 quicklisp)>)
80: (quicklisp-client::autoload-system-and-dependencies "clx" :prompt nil)
81: ((:internal quicklisp-client::autoload-system-and-dependencies) Component :clx not found, required by #<system..
82: (signal Component :clx not found, required by #<system "clim-clx">)
83: (ccl::%error Component :clx not found, required by #<system "clim-clx"> (:required-by #<system "clim-clx"> :re..
84: (asdf/find-component:resolve-dependency-name #<system "clim-clx"> :clx nil)
85: (#<standard-method asdf/action:component-depends-on (asdf/action:sideway-operation asdf/component:component)> ..
86: (ccl::%call-next-method ((nil) (#<standard-method asdf/action:component-depends-on (asdf/action:selfward-opera..
87: (#<standard-method asdf/action:component-depends-on (asdf/action:downward-operation asdf/component:parent-comp..
88: (ccl::%call-next-method ((nil) (#<standard-method asdf/action:component-depends-on (asdf/action:selfward-opera..
89: (asdf/cache:consult-asdf-cache (asdf/action:component-depends-on #<load-op > #<system "clim-clx">) #<ccl:compi..
90: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/action:component-depends-on :around (asdf/opera..
91: (nil #<Unknown Arguments>)
92: (asdf/plan:map-direct-dependencies #<load-op > #<system "clim-clx"> #<ccl:compiled-lexical-closure (:internal ..
93: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<system "clim-clx"> #<c..
94: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
95: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
96: ((:internal asdf/plan:visit-dependencies) #<load-op > #<system "clim-clx">)
97: (asdf/plan:map-direct-dependencies #<prepare-op > #<system "clim-looks"> #<ccl:compiled-lexical-closure (:inte..
98: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<system "clim-looks"..
99: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
100: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
101: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<system "clim-looks">)
102: (asdf/plan:map-direct-dependencies #<prepare-op > #<cl-source-file "clim-looks" "Looks/pixie"> #<ccl:compiled-..
103: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<cl-source-file "cli..
104: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
105: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
106: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<cl-source-file "clim-looks" "Looks/pixie">)
107: (asdf/plan:map-direct-dependencies #<load-op > #<cl-source-file "clim-looks" "Looks/pixie"> #<ccl:compiled-lex..
108: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<cl-source-file "clim-l..
109: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
110: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
111: ((:internal asdf/plan:visit-dependencies) #<load-op > #<cl-source-file "clim-looks" "Looks/pixie">)
112: (asdf/plan:map-direct-dependencies #<load-op > #<system "clim-looks"> #<ccl:compiled-lexical-closure (:interna..
113: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<system "clim-looks"> #..
114: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
115: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
116: ((:internal asdf/plan:visit-dependencies) #<load-op > #<system "clim-looks">)
117: (asdf/plan:map-direct-dependencies #<load-op > #<system "mcclim"> #<ccl:compiled-lexical-closure (:internal as..
118: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<system "mcclim"> #<ccl..
119: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
120: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
121: ((:internal asdf/plan:visit-dependencies) #<load-op > #<system "mcclim">)
122: (asdf/plan:map-direct-dependencies #<prepare-op > #<system "gsharp"> #<ccl:compiled-lexical-closure (:internal..
123: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<system "gsharp"> #<..
124: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
125: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
126: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<system "gsharp">)
127: (asdf/plan:map-direct-dependencies #<prepare-op > #<cl-source-file "gsharp" "packages"> #<ccl:compiled-lexical..
128: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<cl-source-file "gsh..
129: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
130: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
131: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<cl-source-file "gsharp" "packages">)
132: (asdf/plan:map-direct-dependencies #<load-op > #<cl-source-file "gsharp" "packages"> #<ccl:compiled-lexical-cl..
133: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<cl-source-file "gsharp..
134: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
135: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
136: ((:internal asdf/plan:visit-dependencies) #<load-op > #<cl-source-file "gsharp" "packages">)
137: (asdf/plan:map-direct-dependencies #<load-op > #<system "gsharp"> #<ccl:compiled-lexical-closure (:internal as..
138: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op > #<system "gsharp"> #<ccl..
139: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
140: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
141: ((:internal asdf/plan:visit-dependencies) #<load-op > #<system "gsharp">)
142: (asdf/plan:map-direct-dependencies #<prepare-op > #<system "abnotation"> #<ccl:compiled-lexical-closure (:inte..
143: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<system "abnotation"..
144: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
145: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
146: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<system "abnotation">)
147: (asdf/plan:map-direct-dependencies #<prepare-op > #<cl-source-file "abnotation" "clef"> #<ccl:compiled-lexical..
148: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<prepare-op > #<cl-source-file "abn..
149: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
150: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
151: ((:internal asdf/plan:visit-dependencies) #<prepare-op > #<cl-source-file "abnotation" "clef">)
152: (asdf/plan:map-direct-dependencies #<load-op :verbose nil> #<cl-source-file "abnotation" "clef"> #<ccl:compile..
153: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op :verbose nil> #<cl-source-..
154: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
155: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
156: ((:internal asdf/plan:visit-dependencies) #<load-op :verbose nil> #<cl-source-file "abnotation" "clef">)
157: (asdf/plan:map-direct-dependencies #<load-op :verbose nil> #<system "abnotation"> #<ccl:compiled-lexical-closu..
158: (asdf/plan:visit-dependencies #<asdf/plan:sequential-plan #x3020022D96FD> #<load-op :verbose nil> #<system "ab..
159: ((:internal asdf/plan::visit-action (asdf/plan:traverse-action (t t t t))) t)
160: (#<standard-method asdf/plan:call-while-visiting-action (asdf/plan:plan-traversal t t t)> #<asdf/plan:sequenti..
161: (#<standard-method asdf/plan:make-plan (t asdf/operation:operation asdf/component:component)> nil #<load-op :v..
162: (#<standard-method asdf/operate:operate (asdf/operation:operation asdf/component:component)> #<load-op :verbos..
163: (ccl::%call-next-method ((nil) #<standard-method asdf/operate:operate (asdf/operation:operation asdf/component..
164: ((:internal (asdf/operate:operate :around (t t))))
165: (#<standard-method asdf/operate:operate :around (t t)> #<load-op :verbose nil> #<system "abnotation"> :verbose..
166: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/operate:operate :around (t t)> (#<standard-meth..
167: (nil #<Unknown Arguments>)
168: (ccl::%call-next-method ((nil) #<standard-method asdf/operate:operate (symbol t)> asdf/lisp-action:load-op "ab..
169: ((:internal (asdf/operate:operate :around (t t))))
170: (asdf/cache:call-with-asdf-cache #<ccl:compiled-lexical-closure (:internal (asdf/operate:operate :around (t t)..
171: (asdf/find-system::call-with-system-definitions #<ccl:compiled-lexical-closure (:internal (asdf/operate:operat..
172: (#<standard-method asdf/operate:operate :around (t t)> asdf/lisp-action:load-op "abnotation" :verbose nil)
173: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/operate:operate :around (t t)> (#<standard-meth..
174: (nil #<Unknown Arguments>)
175: (#<standard-method asdf/operate:operate :around (t t)> asdf/lisp-action:load-op "abnotation" :verbose nil)
176: (ccl::%%standard-combined-method-dcode (#<standard-method asdf/operate:operate :around (t t)> (#<standard-meth..
177: (nil #<Unknown Arguments>)
178: ((:internal quicklisp-client::apply-load-strategy))
179: (quicklisp-client::call-with-macroexpand-progress #<ccl:compiled-lexical-closure (:internal quicklisp-client::..
180: (quicklisp-client::apply-load-strategy #<load-strategy "abnotation" (1 asdf, 0 quicklisp)>)
181: (quicklisp-client::autoload-system-and-dependencies "abnotation" :prompt nil)
182: ((:internal quicklisp-client::ql (quicklisp-client:quickload (t))))
183: (#<standard-method ql-impl-util::%call-with-quiet-compilation (t t)> #<ql-impl:ccl #x30200063F6ED> #<ccl:compi..
184: (ql-impl-util:call-with-quiet-compilation #<ccl:compiled-lexical-closure (:internal quicklisp-client::ql (quic..
185: (#<standard-method quicklisp-client:quickload (t)> (:abnotation) :prompt nil :verbose nil)
186: (ccl::%call-next-method ((nil) #<standard-method quicklisp-client:quickload (t)> :abnotation))
187: ((:internal (quicklisp-client:quickload :around (t))))
188: (ql-dist::call-with-consistent-dists #<ccl:compiled-lexical-closure (:internal (quicklisp-client:quickload :ar..
189: (#<standard-method quicklisp-client:quickload :around (t)> :abnotation :verbose nil :prompt nil :explain nil)
190: (ccl::%%standard-combined-method-dcode (#<standard-method quicklisp-client:quickload :around (t)> #<standard-m..
191: (nil #<Unknown Arguments>)
192: (ccl::call-check-regs quicklisp-client:quickload :abnotation)
193: ((:internal ccl::with-compilation-unit-body ccl::load-from-stream))
194: (ccl::call-with-compilation-unit #<ccl:compiled-lexical-closure (:internal ccl::with-compilation-unit-body ccl..
195: (ccl::load-from-stream #<basic-file-character-input-stream ("/home/pjb/works/gsharp/src/abnotation/loader.lisp..
196: (ccl::%load #P"/home/pjb/works/gsharp/src/abnotation/loader.lisp" nil nil :error :default nil)
197: (load "abnotation/loader.lisp" :verbose nil :print nil :if-does-not-exist :error :external-format :default :pr..
198: (ccl::call-check-regs load "abnotation/loader.lisp")
199: (ccl::cheap-eval (load "abnotation/loader.lisp"))
200: (swank::eval-region "(load \"abnotation/loader.lisp\")
")
Locals:
string = "(load \"abnotation/loader.lisp\") ..
stream = #<string-input-stream #x3020018EDE6D>
values = nil
- = (load "abnotation/loader.lisp")
form = (load "abnotation/loader.lisp")
201: ((:internal swank::repl-eval))
202: (swank::track-package #<ccl:compiled-lexical-closure (:internal swank::repl-eval) #x3020018EDE9F>)
203: ((:internal swank::repl-eval))
204: (swank::call-with-retry-restart "Retry SLIME REPL evaluation request." #<ccl:compiled-lexical-closure (:intern..
205: ((:internal swank::repl-eval))
206: (#<Anonymous Function #x3020015B1CEF> #<ccl:compiled-lexical-closure (:internal swank::repl-eval) #x3020018EDF..
207: (swank-backend:call-with-syntax-hooks #<ccl:compiled-lexical-closure (:internal swank::repl-eval) #x3020018EDF..
208: (swank::call-with-buffer-syntax nil #<ccl:compiled-lexical-closure (:internal swank::repl-eval) #x3020018EDF6F..
209: (swank::repl-eval "(load \"abnotation/loader.lisp\")
")
210: (swank:listener-eval "(load \"abnotation/loader.lisp\")
" :window-width nil)
211: (ccl::call-check-regs swank:listener-eval "(load \"abnotation/loader.lisp\")
")
212: (ccl::cheap-eval (swank:listener-eval "(load \"abnotation/loader.lisp\")
"))
213: (swank:eval-for-emacs (swank:listener-eval "(load \"abnotation/loader.lisp\")
") "COMMON-LISP-USER" 9)
214: (swank::process-requests nil)
215: ((:internal swank::handle-requests))
216: ((:internal swank::handle-requests))
217: (swank-backend:call-with-debugger-hook #<Compiled-function swank:swank-debugger-hook #x30200173C03F> #<ccl:com..
218: (swank-backend:call-with-debugger-hook #<Compiled-function swank:swank-debugger-hook #x30200173C03F> #<ccl:com..
219: ((:internal swank::handle-requests))
220: (swank::call-with-bindings ((*standard-output* . #1=#<swank-backend::slime-output-stream #x3020018EB72D>) (*st..
221: (swank::handle-requests #<multithreaded-connection #x3020017A469D> nil)
222: (swank::repl-loop #<multithreaded-connection #x3020017A469D>)
223: ((:internal swank::spawn-repl-thread))
224: (swank::call-with-bindings ((*print-pretty*) (*print-level*) (*print-length*) (*print-circle* . t) (*print-cas..
225: ((:internal swank::spawn-repl-thread))
226: (ccl::run-process-initial-form #<process repl-thread(15) [Active] #x3020018EC70D> (#<ccl:compiled-lexical-clos..
227: ((:internal (ccl::%process-preset-internal (ccl:process))) #<process repl-thread(15) [Active] #x3020018EC70D> ..
228: ((:internal ccl::thread-make-startup-function))
|
|||
| #1135 | fixed | length of outbuf in write-perverted-string | ||
| Description |
When escape is nil, there could still be #
(outbuf (make-string (if escape
(+ end 2 (count-if (lambda (c) (or (eql c escape)
(eql c #\\))) string :end end))
(+ end 2 (count #\\ string :end end)))))
without this patch, I get errors while printing foreign-library objects: cl-user> (defvar *libobjc* (cffi:load-foreign-library "libobjc.so.4"))
*libobjc*
cl-user> (inspect *libobjc*)
[0] #<foreign-library #<error printing symbol #x30200248220E> "libobjc\\.so.4">
[1] Class: #<standard-class cffi:foreign-library>
[2] Wrapper: #<ccl::class-wrapper cffi:foreign-library #x3020020D1A9D>
Instance slots
[3] cffi::name: #:LIBOBJC\\.SO.4-8904
[4] type: :system
[5] cffi::spec: ((t "libobjc.so.4"))
[6] cffi::options: (:convention :cdecl)
[7] cffi::handle: #<shlib libobjc.so.4 #x30200243817D>
[8] pathname: #P"libobjc\\.so.4"
Inspect>
|
|||
| #789 | wontfix | bug printing/insepecting circular Objective-C structures | ||
| Description |
If you try to print circular Lisp structures in the listener you eventually get a stack overflow and move on. If you have comparable Objective-C structures, CCL will crash trying to display them in the listener. If you try to inspect such an object you get an unhandled runtime exception. To replicate do something like the following: Welcome to Clozure Common Lisp Version 1.7-dev-r14466M-trunk (DarwinX8664)!
? (progn
(setf d1 (let ((d1 (#/dictionaryWithCapacity: ns:ns-mutable-dictionary 4))
(d2 (#/dictionaryWithCapacity: ns:ns-mutable-dictionary 4)))
(#/setObject:forKey: d1 d2 #@"d2ptr")
(#/setObject:forKey: d2 d1 #@"d1ptr")
d1))
t)
T
? (inspect d1)
And in the AltConsole you get:
Unhandled exception 10 at 0x7fff81951f9f, context->regs at #x7fff5fbfe1e0
Exception occurred while executing foreign code
at szone_malloc_should_clear + 116
received signal 10; faulting address: 0x7fff5f3fffe8
? for help
[12203] Clozure CL kernel debugger: b
current thread: tcr = 0x1007b0, native thread ID = 0x207, interrupts enabled
(#x000000000044B630) #x0000300000E43B2C : #<Anonymous Function #x0000300000E43A7F> + 173
(#x000000000044B650) #x0000300001324E2C : #<Function (:OBJC-DISPATCH description) #x0000300001324B9F> + 653
(#x000000000044B688) #x0000300000D9023C : #<Function NSOBJECT-DESCRIPTION #x0000300000D9016F> + 205
(#x000000000044B6F0) #x0000300000D8FB2C : #<Function (:INTERNAL (PRINT-OBJECT (OBJC-OBJECT T))) #x0000300000D8FA9F> + 141
(#x000000000044B730) #x0000300000252154 : #<Function %PRINT-UNREADABLE-OBJECT #x000030000025202F> + 293
(#x000000000044B778) #x0000300000D8FD64 : #<Method-Function PRINT-OBJECT (OBJC-OBJECT T) #x0000300000D8FC5F> + 261
(#x000000000044B7A8) #x0000300000209684 : #<Function %CALL-NEXT-METHOD #x000030000020928F> + 1013
(#x000000000044B840) #x00003000001F6B04 : #<Function %%STANDARD-COMBINED-METHOD-DCODE #x00003000001F684F> + 693
(#x000000000044B8C8) #x0000300000506644 : #<Function WRITE-A-FROB #x000030000050659F> + 165
(#x000000000044B948) #x0000300000C37724 : #<Function DO-XP-PRINTING #x0000300000C375CF> + 341
(#x000000000044B9D0) #x0000300000C37B7C : #<Function (:INTERNAL DO-IT XP-PRINT) #x0000300000C37B4F> + 45
(#x000000000044B9F8) #x0000300000508294 : #<Function MAYBE-INITIATE-XP-PRINTING #x000030000050804F> + 581
(#x000000000044BA78) #x00003000005078BC : #<Function WRITE-INTERNAL #x00003000005075AF> + 781
(#x000000000044BAD8) #x0000300000512334 : #<Function WRITE-1 #x000030000051210F> + 549
(#x000000000044BB08) #x000030000011D864 : #<Function PRIN1 #x000030000011D7DF> + 133
(#x000000000044BB48) #x000030000011D6EC : #<Function PRIN1-TO-STRING #x000030000011D64F> + 157
(#x000000000044BB98) #x000030000186738C : #<Function INSPECTOR-OBJECT-NSSTRING #x000030000186727F> + 269
(#x000000000044BC60) #x0000300001866CDC : #<Function MAKE-INSPECTOR-ITEM #x0000300001866BEF> + 237
(#x000000000044BC98) #x0000300001866674 : #<Function MAKE-INSPECTOR-WINDOW #x00003000018665FF> + 117
(#x000000000044BCB8) #x0000300001867524 : #<Function MAKE-INSPECTOR #x000030000186749F> + 133
(#x000000000044BCF0) #x0000300001347744 : #<Function HANDLE-INVOKING-LISP-FUNCTION #x00003000013475FF> + 325
(#x000000000044BD68) #x0000300001358B44 : #<Method-Function INVOKE-LISP-FUNCTION (6614255403008 T) #x00003000013589FF> + 325
(#x000000000044BDD0) #x000030000135919C : #<Function -[NSApplication invokeLispFunction:] #x0000300001358EDF> + 701
(#x000000000044BE38) #x00003000001AC04C : #<Function %PASCAL-FUNCTIONS% #x00003000001ABEDF> + 365
(#x000000000044BEF0) #x0000300000FBB55C : #<Anonymous Function #x0000300000FBB4AF> + 173
(#x000000000044BF10) #x000030000139D87C : #<Function (:OBJC-DISPATCH run) #x000030000139D5EF> + 653
(#x000000000044BF48) #x000030000139D104 : #<Function EVENT-LOOP #x000030000139CF5F> + 421
(#x000000000044BFA0) #x00003000013AE0AC : #<Function (:INTERNAL COCOA-STARTUP START-COCOA-APPLICATION) #x00003000013ADCBF> + 1005
[12203] Clozure CL kernel debugger: k
|
|||
Note:
See TracQuery
for help on using queries.
