hemlock

[Jeff <jefu@akbar.nmt.edu>]

I hope this is the right address for this.  I copied over the cmu  
common lisp stuff recently and am generally quite happy with it, but
I have a couple of comments and problems to note.  


1) when i run "lisp -edit" it claims that it cant find the font
8X13u.  I have tried copying that font to the X fonts directory
and setting a different font path that includes the font, but 

it still enters the debugger.  If i :go from this point, some
displays work ok, but at least one dies a horrible death.
(Note that for the most part, I'm running lisp remotely.)

2) In the debugger, if you do a :backtrace, the first few
entries are always debug functions.  I dont know that this
is of much use to me in general, I think I'd personally prefer
that the :backtrace gives me my function that died first.  


The end of this message contains a script of a typical
invocation.  I'm using the distribution in the file
16b-sun4c_41.tar.Z, and various releases of X software.

thanks 


--
jefu <=> Jeff Putnam - New Mexico Tech <=> jefu@nmt.edu 


Script started on Mon Mar 23 07:33:30 1992
khaki.1 : bin/lisp -edit

Asynchronous VALUE-ERROR in request 2 (last request was 4)  Code 51.0  
[SetFontPath] Value 4.

Restarts:
  0: [CONTINUE] Ignore
  1:            Return NIL from load of #<Stream for file  
"/afs/cs/project/clisp/src/16/tools/worldload.lisp">.
  2: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(DEBUG::DEBUG-LOOP)
0] :backtrace


(DEBUG::DEBUG-LOOP)
("DEFUN DEBUG-LOOP" #<unavailable-arg> #<unavailable-arg>)[:EXTERNAL]
(DEBUG:INTERNAL-DEBUG)
(INVOKE-DEBUGGER #<XLIB:VALUE-ERROR {7012945}>)
(INVOKE-DEBUGGER #<unavailable-arg>)
(CERROR "Ignore"
        XLIB:VALUE-ERROR
        :DISPLAY
        #<XLIB:DISPLAY aldebaran:0 (MIT X Consortium R5000)>
        ...)
(XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY aldebaran:0 (MIT X Consortium  
R5000)>
                        2
                        #S(XLIB::REPLY-BUFFER
                             XLIB::SIZE 32
                             XLIB::IBUF8 #
                             XLIB::NEXT NIL
                             XLIB::DATA-SIZE 32)
                        (NIL))
(XLIB::READ-INPUT #<XLIB:DISPLAY aldebaran:0 (MIT X Consortium  
R5000)>
                  NIL
                  NIL
                  #<Function "DEFUN READ-REPLY" {1CB0E59}>
                  ...)
(XLIB::READ-REPLY #<unavailable-arg> #<unavailable-arg>)
(XLIB::QUERY-FONT #<XLIB:FONT 8x13 aldebaran:0 25165825>)
(XLIB::FONT-MAX-BOUNDS #<XLIB:FONT 8x13 aldebaran:0 25165825>)
(XLIB:MAX-CHAR-WIDTH #<XLIB:FONT 8x13 aldebaran:0 25165825>)
(HEMLOCK-INTERNALS::SETUP-FONT-FAMILY
 #<XLIB:DISPLAY aldebaran:0 (MIT X Consortium R5000)>
 "8x13"
 "8x13u"
 "8x13bold")
(HEMLOCK-INTERNALS::INIT-RAW-IO "aldebaran:0.0")
(ED NIL :INIT T :DISPLAY ...)
(EXTENSIONS::INVOKE-SWITCH-DEMONS (#<Command Line Switch "edit">)
                                  (("edit" .  
HEMLOCK::EDIT-SWITCH-DEMON)
                                   ("slave" .  
HEMLOCK::SLAVE-SWITCH-DEMON)
                                   ("load"
                                    . #<Function  
EXTENSIONS::LOAD-SWITCH-DEMON {12838D9}>)
                                   ("eval"
                                    . #<Function  
EXTENSIONS::EVAL-SWITCH-DEMON {1285001}>)))
(SAVE-LISP "/lisp-sun1/usr0/tmp/lisp.core" :PURIFY T :ROOT-STRUCTURES  
...)
(COMMON-LISP::SLOLOAD
 #<Stream for file  
"/afs/cs/project/clisp/src/16/tools/worldload.lisp">)
(LOAD #<Stream for file  
"/afs/cs/project/clisp/src/16/tools/worldload.lisp">
      :VERBOSE
      NIL
      :PRINT
      ...)
(INTERACTIVE-EVAL (LOAD (OPEN "lisp:tools/worldload.lisp")))
(COMMON-LISP::%TOP-LEVEL)
("DEFUN %TOP-LEVEL" #<unavailable-arg>)[:EXTERNAL]
(COMMON-LISP::%INITIAL-FUNCTION)
0] :go
Warning:
Cannot open font -- "8x13u"
^C

Interrupted at #x21750.

Restarts:
  0: [CONTINUE] Return from BREAK.
  1:            Return NIL from load of #<Stream for file  
"/afs/cs/project/clisp/src/16/tools/worldload.lisp">.
  2: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(DEBUG::DEBUG-LOOP)
0] (quit)
khaki.2 : exit
exit

script done on Mon Mar 23 07:34:42 1992