Marcelino, Acho que o add-fonts-to-page é pra alguma versão antiga do cl-pdf. No mesmo exemplo (disponível na pasta cl-pdf/examples) não é mais necessária esta chamada.
Já precisei testar o mesmo código tanto no Allegro (Windows) quanto no CLISP (Windows) e funcionou. No CLISP, porém, foi necessário verificar o default file encoding, por exemplo, precisei trocar para iso-8859-1 antes de executar a função. (setf custom:*default-file-encoding* (ext:encoding-charset "iso-8859-1")) Oks, Bruno On Sat, Aug 15, 2009 at 3:12 PM, Marcelino Pinheiro <[email protected]>wrote: > Pessoal, instalei a biblioteca cl-pdf no winxp e ao rodar o código é > informado um erro > > (pdf:with-document () > (pdf:with-page () > (let ((helvetica (make-instance 'pdf:font))) > (pdf:add-fonts-to-page helvetica) > (pdf:in-text-mode > (pdf:set-font helvetica 36.0) > (pdf:move-text 100 800) > (pdf:draw-text "CL-PDF: Example 1")) > (pdf:translate 230 500) > (loop repeat 101 > for i = 0.67 then (* i 1.045) > do (pdf:in-text-mode > (pdf:set-font helvetica i) > (pdf:move-text (* i 3) 0) > (pdf:draw-text "rotation")) > (pdf:rotate 18)))) > (pdf:write-document #P"ex1.pdf")) > > > Microsoft Windows XP [versão 5.1.2600] > (C) Copyright 1985-2001 Microsoft Corp. > > > C:\Documents and Settings\masp\Desktop>clisp -K full > i i i i i i i ooooo o ooooooo ooooo ooooo > I I I I I I I 8 8 8 8 8 o 8 8 > I \ `+' / I 8 8 8 8 8 8 > \ `-+-' / 8 8 8 ooooo 8oooo > `-__|__-' 8 8 8 8 8 > | 8 o 8 8 o 8 8 > ------+------ ooooo 8oooooo ooo8ooo ooooo 8 > > Welcome to GNU CLISP 2.48 (2009-07-28) <http://clisp.cons.org/> > > Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 > Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 > Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 > Copyright (c) Bruno Haible, Sam Steingold 1999-2000 > Copyright (c) Sam Steingold, Bruno Haible 2001-2009 > > Type :h and hit Enter for context help. > > ;; Loading file C:\Documents and Settings\masp\.clisprc ... > ;; Loading file C:\lisp\pacotes\asdf\asdf.lisp ... > WARNING: LOOP: FOR clauses should occur before the loop's main body > WARNING: LOOP: FOR clauses should occur before the loop's main body > ;; Loaded file C:\lisp\pacotes\asdf\asdf.lisp > ; loading system definition from C:\lisp\pacotes\cl-pdf\cl-pdf.asd into > #<PACKAG > E ASDF0> > ;; Loading file C:\lisp\pacotes\cl-pdf\cl-pdf.asd ... > ;; Loading file C:\lisp\pacotes\cl-pdf\iterate\iterate.asd ... > ; registering #<SYSTEM :ITERATE #x19F5A35D> as ITERATE > ;; Loaded file C:\lisp\pacotes\cl-pdf\iterate\iterate.asd > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\salza.asd ... > ; registering #<SYSTEM :SALZA #x19F7F0AD> as SALZA > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\salza.asd > ; registering #<SYSTEM :CL-PDF #x19F8A671> as CL-PDF > ;; Loaded file C:\lisp\pacotes\cl-pdf\cl-pdf.asd > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\packages.fas ... > ** - Continuable Error > SYSTEM::%IN-PACKAGE: a package with name "ZLIB" already exists. > If you continue (by typing 'continue'): discard this nickname > The following restarts are also available: > READ :R1 input another nickname > SKIP :R2 skip 75 91 (DEFPACKAGE :SALZA (:USE :CL > :SALZA-TYPES ... > ) ...)-5-1 > STOP :R3 stop loading file > C:\lisp\pacotes\cl-pdf\salza\packages. > fas > TRY-RECOMPILING :R4 Recompile packages and try loading it again > RETRY :R5 Retry performing #<ASDF:LOAD-OP NIL #x19F4B06D> on > #<ASD > F:CL-SOURCE-FILE "packages" #x19F46731>. > ACCEPT :R6 Continue, treating #<ASDF:LOAD-OP NIL #x19F4B06D> > on #<A > SDF:CL-SOURCE-FILE "packages" #x19F46731> as having been successful. > SKIP :R7 skip (OOS 'LOAD-OP CL-PDF) > STOP :R8 stop loading file C:\Documents and > Settings\masp\.clispr > c > Break 1 CL[5]> continue > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\packages.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\types.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\types.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\fixhash.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\fixhash.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\deflate-stream.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\deflate-stream.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\huffman.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\huffman.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\octet-replace.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\octet-replace.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\compressor.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\compressor.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\deflate-stream-interface.fas > ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\deflate-stream-interface.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\salza\zlib.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\salza\zlib.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\iterate\package.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\iterate\package.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\iterate\iterate.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\iterate\iterate.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\defpackage.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\defpackage.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\config.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\config.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\zlib.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\zlib.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\font-metrics.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\font-metrics.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\encodings.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\encodings.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\t1-font.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\t1-font.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\ttu-font.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\ttu-font.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\font.fas ... > WARNING: DEFGENERIC: redefining function FONT-DESCRIPTOR in > C:\lisp\pacotes\cl-pdf\font.fas, was defined in top-level > WARNING: The generic function #<STANDARD-GENERIC-FUNCTION NAME> is being > modified, but has already been called. > ;; Loaded file C:\lisp\pacotes\cl-pdf\font.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\pdf.fas ... > WARNING: DEFGENERIC: redefining function MAKE-DICTIONARY in > C:\lisp\pacotes\cl-pdf\pdf.fas, was defined in top-level > WARNING: DEFGENERIC: redefining function FONT-DESCRIPTOR in > C:\lisp\pacotes\cl-pdf\pdf.fas, was defined in > C:\lisp\pacotes\cl-pdf\font.fas > ;; Loaded file C:\lisp\pacotes\cl-pdf\pdf.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\x11-colors.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\x11-colors.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\pdf-base.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\pdf-base.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\png.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\png.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\pdf-geom.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\pdf-geom.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\text.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\text.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\bar-codes.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\bar-codes.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\chart.fas ... > WARNING: The generic function #<STANDARD-GENERIC-FUNCTION WIDTH> is being > modified, but has already been called. > ;; Loaded file C:\lisp\pacotes\cl-pdf\chart.fas > 0 errors, 0 warnings > ; loading system definition from C:\lisp\pacotes\cl-pdf\cl-pdf-parser.asd > into # > <PACKAGE ASDF0> > ;; Loading file C:\lisp\pacotes\cl-pdf\cl-pdf-parser.asd ... > ; registering #<SYSTEM :CL-PDF-PARSER #x1A1CDCB1> as CL-PDF-PARSER > ;; Loaded file C:\lisp\pacotes\cl-pdf\cl-pdf-parser.asd > ;; Loading file C:\lisp\pacotes\cl-pdf\pdf-parser.fas ... > ;; Loaded file C:\lisp\pacotes\cl-pdf\pdf-parser.fas > ;; Loading file C:\lisp\pacotes\cl-pdf\pdf-template.fas ... > WARNING: The generic function #<STANDARD-GENERIC-FUNCTION NAME> is being > modified, but has already been called. > ;; Loaded file C:\lisp\pacotes\cl-pdf\pdf-template.fas > 0 errors, 0 warnings > ;; Loaded file C:\Documents and Settings\masp\.clisprc > [1]> (pdf:with-document () > (pdf:with-page () > (let ((helvetica (make-instance 'pdf:font))) > (pdf:add-fonts-to-page helvetica) > > *** - READ from #<INPUT CONCATENATED-STREAM #<IO TERMINAL-STREAM>>: > #<PACKAGE PDF> has no external symbol with name "ADD-FONTS-TO-PAGE" > The following restarts are available: > ABORT :R1 Abort main loop > Break 1 [2]> > > não tive sucesso também usando Ubutntu 9 > > já inclui no path o caminho para as fontes afm mas mesmo assim nada. > > Alguem já instalou o cl-pdf num WinXP ou Ubuntu? > > Desde já grato. > > -- > Marcelino Pinheiro > 11-7980-0617 > > > > -- ===================================== Bruno Campagnolo de Paula http://www.brunocampagnolo.com http://www.brunodepaula.com =//= responder para: [email protected] [email protected] [email protected] ===================================== --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Lisp-br" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/lisp-br?hl=en -~----------~----~----~----~------~----~------~--~---
