Custom Query (1030 matches)

I ran into weird problem with cl-opengl and ccl. Looks like code is generated incorrectly for callbacks and program crashes.

Reproduces on Linux and Windows 64bit. Current trunk 1.10-dev-r15968M-trunk LinuxX8664 and 1.9 release. Up to date cffi_0.11.2, cl-opengl-20131003 from quicklisp.

Attached simple reduced test.

I want to use CCL for signal processing and I'm using bordeaux-fft. However, this is quite slow and conses a lot, presumably because CCL lacks specialized arrays for complex numbers (single-float and double-float), in contrast to, e.g., SBCL

(upgraded-array-element-type '(complex double-float)) ==> T

seems to attest this assumption. So I ask you to add specialized arrays of (complex single-float) and (complex double-float)

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))