;;; Compilation of /home/juergen/lisp/mevalxp/system/print-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/04/30 0:32:19. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBCABSOLUTEhomejuergenlispmevalxpsystem>>EU%print-02lispB;TC LISPWORKS**TOP-LEVEL-FORM>>>E%= 'wF;%8v6u1Uth(7-2?BH CHECK-GENERATIONHCLET SETF COMMON-LISP-USERGET-WORD?> SETQBQUOTEBDEFUNNOTXIF >BTO-ASCIIVALB%<=B> %+B>0BB>7BPRINT-HEX-DIGITPOSBSET-BYTEBASE_VGAP-SHIFTLB>BBBPRINT-HEX-BYTEB BBBB>ADDR-ANDB>BBBTAG-ANDP-SHIFTRB>=>B PRINT-HEXB BBVB BBB>BBB>?BBB>BBBBBB>=?BBB>BBBBBB>=?BBBBBB>=?BB P-CONSTR =?>vEEQ)E)ERITRIRJQTJQ%A)QITD%QDeDiJQRT* *PRINT01*&CB>>>E%=  U BHLOAD-XREF-INFOL&;%8vuU%BHC XREF-INFO(CALLSBBSETSBBmake-safe-for-tail-call-397B >> EPRR*BCB>>>E%=