Custom Query (1030 matches)

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

When escape is nil, there could still be #
in the string that are processed (duplicated) in the output. Therefore it might be good to count the #
in that case too:

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

Since the numerical value of a signal depends on the version of the posix standard and is thus different on different operating systems (e.g. SIGCONT is 19 on macOS but 18 on Linux (it might even be more complicated than that)), it's nice to be able to query the lisp compiler/interpreter for the number behind a name.

Allegro CL, CMU CL, ECL, and SBCL each provide such a mechanism (through constants or functions). It would be nice if so did Clozure CL.