[cl-pdf-devel] cl-pdf examples not working in cmucl 19a

[Chisheng Huang]

Hi,

I downloaded cl-pdf-current.tgz yesterday and managed to get
it compiled and loaded on a Red Hat 7.3 box with
  1. CMUCL 19a (x86 Linux) plus contrib/zlib-cmucl.lisp
  2. LispWorks personal edition 4.3.6. plus contrib/zlib-lw.lisp

All examples in examples/examples.lisp work in Lispworks but none
of them work in CMUCL.  The backtrace of running EXAMPLE1 is attached 
at the end of this email.  I'll be grateful if someone can show me how
to get around this problem.

I'm sorry if this is not the right place to ask this type of questions.

Best wishes,

-cph

-------------------- backtrace --------------------

#<Wrapper #<STANDARD-CLASS PDF::NAMED-REFERENCE {580778ED}> {5806B115}> cannot be printed readably.
   [Condition of type PRINT-NOT-READABLE]

Restarts:
  0: [ABORT] Abort handling SLIME request.
  1:         Return to Top-Level.

Debug  (type H for help)

(LISP::%PRINT-UNREADABLE-OBJECT #<Wrapper #<STANDARD-CLASS PDF::NAMED-REFERENCE {580778ED}> {5806B115}> #<String-Output Stream> NIL T ...)
Source: 
; File: target:code/print.lisp
(ERROR (QUOTE PRINT-NOT-READABLE) :OBJECT OBJECT)
0] back

0: (LISP::%PRINT-UNREADABLE-OBJECT #<Wrapper #<STANDARD-CLASS PDF::NAMED-REFERENCE {580778ED}> {5806B115}> #<String-Output Stream> NIL T ...)
1: (LISP::OUTPUT-LIST (SETF (PCL::STD-INSTANCE-WRAPPER PCL::.INSTANCE.) #<Wrapper #<STANDARD-CLASS PDF::NAMED-REFERENCE {580778ED}> {5806B115}>) #<String-Output Stream>)
2: (LISP::OUTPUT-LIST (LET (# #) (SETF # #<Wrapper #<STANDARD-CLASS PDF::NAMED-REFERENCE {580778ED}> {5806B115}>) (SETF # PCL::.SLOTS.) (LET NIL #) ...) #<String-Output Stream>)
3: (LISP::OUTPUT-LIST (KERNEL:INSTANCE-LAMBDA (PCL::|.P0.|) (LET # # # # ...)) #<String-Output Stream>)
4: (PRIN1 (KERNEL:INSTANCE-LAMBDA (PCL::|.P0.|) (LET # # # # ...)) #<String-Output Stream>)
5: (FORMAT::S-FORMAT-DIRECTIVE-INTERPRETER #<String-Output Stream> #<~S> (#<~^> " ") #<unused-arg> ...)
6: (FORMAT::INTERPRET-DIRECTIVE-LIST #<String-Output Stream> (#<~S> #<~^> " ") (FUNCTION (KERNEL:INSTANCE-LAMBDA # #)) ((KERNEL:INSTANCE-LAMBDA # #)))
7: ((LABELS FORMAT::DO-LOOP FORMAT::{-FORMAT-DIRECTIVE-INTERPRETER) (FUNCTION (KERNEL:INSTANCE-LAMBDA # #)) ((KERNEL:INSTANCE-LAMBDA # #)))
8: (FORMAT::{-FORMAT-DIRECTIVE-INTERPRETER #<String-Output Stream> #<~{> (#<~S> #<~^> " " #<~}> #<~^> ...) ((FUNCTION #)) ...)
9: (FORMAT::INTERPRET-DIRECTIVE-LIST #<String-Output Stream> (#<~{> #<~S> #<~^> " " #<~}> ...) ((FUNCTION #)) ((FUNCTION #)))
10: ((LABELS FORMAT::DO-LOOP FORMAT::{-FORMAT-DIRECTIVE-INTERPRETER) ((FUNCTION #)) ((FUNCTION #)))
11: (FORMAT::{-FORMAT-DIRECTIVE-INTERPRETER #<String-Output Stream> #<~{> (#<~{> #<~S> #<~^> " " #<~}> ...) ((#)) ...)
12: (FORMAT::INTERPRET-DIRECTIVE-LIST #<String-Output Stream> (#<~{> #<~{> #<~S> #<~^> " " ...) ((#)) ((#)))
13: (FORMAT::%FORMAT #<String-Output Stream> "~{~{~S~^ ~}~^ => ~}" ((#)) ((#)))
14: (FORMAT NIL "~{~{~S~^ ~}~^ => ~}" ((FUNCTION #)))
15: (C::FIND-COMPONENT-NAME #<C:COMPONENT 58F62F5D  NAME= "<unknown>">)
16: (C::FIND-TOP-LEVEL-COMPONENTS (#<C:COMPONENT 58F62F5D  NAME= "<unknown>"> #<C:COMPONENT 58F6353D  NAME= "<unknown>">))
17: ((FLET #:G0 COMPILE))
18: (COMPILE (MAKE-INSTANCE PDF::NAMED-REFERENCE :NAME PCL::|.P0.|) (KERNEL:INSTANCE-LAMBDA (PCL::|.P0.|) (LET # # # # ...)))
19: (COMPILE 2 (MAKE-INSTANCE PDF::NAMED-REFERENCE :NAME PCL::|.P0.|) (KERNEL:INSTANCE-LAMBDA (PCL::|.P0.|) (LET # # # # ...)))[:EXTERNAL]
20: (PCL::COMPILE-LAMBDA (KERNEL:INSTANCE-LAMBDA (PCL::|.P0.|) (LET # # # # ...)) :NAME (MAKE-INSTANCE PDF::NAMED-REFERENCE :NAME PCL::|.P0.|) :INLINE ...)
21: ((LABELS PCL::INSTALL PCL::INSTALL-OPTIMIZED-CONSTRUCTOR) T)
22: ("DEFUN INSTALL-INITIAL-CONSTRUCTOR" "R101")
23: (PDF:GET-NAMED-REFERENCE "R101")
24: (PDF::REGISTER-NAMED-REFERENCE #(#<PDF::PAGE {58E9C755}> "/Fit") "R101")
25: (PDF:REGISTER-PAGE-REFERENCE "R101")
26: ("DEFUN EXAMPLE1")
27: (LISP::%WITH-STANDARD-IO-SYNTAX #<Function "DEFUN EXAMPLE1" {58B290B1}>)
28: (EXAMPLE1 #p"/tmp/ex1.pdf")