Delivery with pretty printer?

I've run into some sillyness trying to deliver an executable on
Linux that uses the pretty printer.

Okay, so for the first shot:

cat >test-pp.lisp <<EOF
(load-all-patches)

(defun foo ()
  (format t "foo~_bar~_baz~_~%"))

(compile 'foo)

(deliver 'foo "test-pp" 0
         :keep-pretty-printer t)
EOF

:; lispworks -siteinit - -init test-pp.lisp
LispWorks(R): The Common Lisp Programming Environment
Copyright (C) 1987-2005 LispWorks Ltd.  All rights reserved.
Version 4.4.5
Saved by LispWorks as lispworks-4450, at 11 Apr 2005 20:06
User bdowning on tiamat
; Loading text file /home/bdowning/projects/riverglass/rgdev/analytics/lisp/test-pp.lisp
[...]
;;; Delivery function    FOO
;;; Destination file     #P"test-pp"
;;; Delivery severity    0
;;; Delivery parameters  (:KEEP-PRETTY-PRINTER T)
[...]
Total Size 19942K, Allocated 18877K, Free 1032K
[...]
;;; Finished delivery

:; ./test-pp
; Loading /usr/local/encap/lispworks-4.4.5/lib/lispworks/lib/4-4-0-0/load-on-demand/pcl/concat/xp-fancyformat.ufsl on demand...
foo
bar
baz

Okay, it worked, but it loaded something on demand, which will fail if moved
to a machine that doesn't have Lispworks on it.  This is fixable by adding
a dummy format before the deliver - annoying, but by no means fatal.

Now I want to try and raise the delivery severity:

cat >test-pp.lisp <<EOF
(load-all-patches)

(defun foo ()
  (format t "foo~_bar~_baz~_~%"))

(compile 'foo)

(format t ";; foo~_;; bar~%")

(deliver 'foo "test-pp" 1
         :keep-pretty-printer t)
EOF

:; lispworks --siteinit - -init test-pp.lisp
LispWorks(R): The Common Lisp Programming Environment
[...]
;;; Delivery function    FOO
;;; Destination file     #P"test-pp"
;;; Delivery severity    1
;;; Delivery parameters  (:KEEP-PRETTY-PRINTER T)
[...]
;;; Finished delivery

Now to try it:

:; ./test-pp
foo
Error: Unrecognized format directive ~_.
  1 (abort) Abort initialization.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

CL-USER 1 : 1 > :bb
#<PACKAGE COMMON-LISP-USER>

Condition: Unrecognized format directive ~_.
Call to DBG::GET-CALL-FRAME
  DBG::FRAME-POINTER : NIL
  DBG::PREV-FRAME    : #<pointer out of bounds 20031163>

Binding frame:
  IO:*TL-COMMANDS* : NIL

Call to DBG::DEBUG1 (offset 218)
  DBG::DATUM     : #<SIMPLE-ERROR 206F9E3C>
  DBG::ARGUMENTS : NIL

Binding frame:
  *EVALHOOK* : NIL

Binding frame:
  MP::*PROCESSING-INTERRUPTS* : NIL

Call to INVOKE-DEBUGGER (offset 117)
  DBG::X : (#<SIMPLE-ERROR 206F9E3C>)

Binding frame:
  CONDITIONS::*BROKEN-ON-SIGNALS* : NIL

Call to IO:TILDE (offset 523)
  FORMAT::STR      : "foo~_bar~_baz~_~%"
  FORMAT::I        : 4
  FORMAT::ARGS     : NIL
  FORMAT::ALL-ARGS : NIL

Catch frame: IO:HUT

Call to IO:RECURSIVE-FORMAT (offset 166)
  IO::FORMATTING : "foo~_bar~_baz~_~%"
  IO::ARGS       : NIL
  IO::ALL-ARGS   : NIL

Binding frame:
  IO::*FORMAT-ITERATION-OUTER-ARGS* : NIL

Catch frame: IO::FORMAT-ESCAPE

Binding frame:
  IO:*ACTIVE-OUTPUT* : #<unbound>

Catch frame: #<unbound>

Call to FORMAT (offset 266)
  LW-XP::DESTINATION      : T
  LW-XP::CONTROL-STRING   : "foo~_bar~_baz~_~%"
  LW-XP::FORMAT-ARGUMENTS : NIL

Call to DELIVERY::MAYBE-RYB-TOP-LEVEL (offset 268)

Catch frame: (NIL)

Call to SYSTEM::DV-TOP-LEVEL-ENTRY-FUNCTION (offset 457)

Catch frame: DELIVER

Binding frame:
  MEMORY-MANAGER::*IN-MAIN-LOOP* : NIL

Catch frame: #<unbound>

Call to COMMON-LISP::MAIN (offset 404)

Catch frame: SYSTEM::EXIT-LISPWORKS

Call to MEMORY-MANAGER::INIT-WORLD (offset 185)
  MEMORY-MANAGER::RAW-OFFSET : :DONT-KNOW
  MEMORY-MANAGER::SSEG       : NIL
  MEMORY-MANAGER::SOFF       : NIL

Call to SYSTEM::%FUNCALL1-ON-LISP-STACK (offset 34)


SYSTEM::%FUNCALL1-ON-LISP-STACK
T

Now, the deliver documentation mentions a :FORMAT keyword, which
controls which format declarations get kept.  The docs claim that
the default is always T (keep everything), but just in case I
specifically tried it:

:; lispworks --siteinit - -init test-pp.lisp
LispWorks(R): The Common Lisp Programming Environment
[...]
;;; Delivery function    FOO
;;; Destination file     #P"test-pp"
;;; Delivery severity    1
;;; Delivery parameters  (:KEEP-PRETTY-PRINTER T :FORMAT T)
[...]
;;; Finished delivery

:; ./test-pp
foo
Error: Unrecognized format directive ~_.
[...]

I also tried :FORMAT '(#\_) specifically, because the docs said it also
accepted a list of characters to keep.

Any ideas whether this can work at all?

-bcd
-- 
*** Brian Downing <bdowning at lavos dot net>
Delivery with pretty printer?

Re: Delivery with pretty printer?

Re: Delivery with pretty printer?
