Re: [Gcl-devel] macro table msg

[Camm Maguire]

Greetings!

root <address@hidden> writes:

> Several uncommitted changes but nothing that should cause the effect
> you are seeing. I'm not even sure what the message means. Is it being
> issued by the common lisp? I am using gcl-2.5.2 for the build. Which

Yes, from /fix/s/camm/axiom/axiom1/new/new:

;buildHtMacroTable() ==
;  $htMacroTable := MAKE_-HASHTABLE 'UEQUAL
;  fn := CONCAT(getEnv '"AXIOM", '"/../../share/doc/hypertex/pages/util.ht")
;  if PROBE_-FILE(fn) then
;    instream := MAKE_-INSTREAM fn
;    while not EOFP instream repeat
;      line := READLINE instream
;      getHtMacroItem line is [string,:numOfArgs] =>
;        HPUT($htMacroTable,string,numOfArgs)
;    for [s,:n] in $primitiveHtCommands repeat HPUT($htMacroTable,s,n)
;  else
;    sayBrightly '"Warning: macro table not found"
;  $htMacroTable

(DEFUN |buildHtMacroTable| NIL (PROG (|fn| |instream| |line| |ISTMP#1| |string| 
|numOfArgs| |s| |n|) (RETURN (SEQ (PROGN (SPADLET |$htMacroTable| 
(MAKE-HASHTABLE (QUOTE UEQUAL))) (SPADLET |fn| (CONCAT (|getEnv| (MAKESTRING 
"AXIOM")) (MAKESTRING "/../../share/doc/hypertex/pages/util.ht"))) (COND 
((PROBE-FILE |fn|) (SPADLET |instream| (MAKE-INSTREAM |fn|)) (DO NIL ((NULL 
(NULL (EOFP |instream|))) NIL) (SEQ (EXIT (PROGN (SPADLET |line| (READLINE 
|instream|)) (COND ((PROGN (SPADLET |ISTMP#1| (|getHtMacroItem| |line|)) (AND 
(PAIRP |ISTMP#1|) (PROGN (SPADLET |string| (QCAR |ISTMP#1|)) (SPADLET 
|numOfArgs| (QCDR |ISTMP#1|)) (QUOTE T)))) (HPUT |$htMacroTable| |string| 
|numOfArgs|))))))) (DO ((#0=#:G3615 |$primitiveHtCommands| (CDR #0#)) 
(#1=#:G3592 NIL)) ((OR (ATOM #0#) (PROGN (SETQ #1# (CAR #0#)) NIL) (PROGN 
(PROGN (SPADLET |s| (CAR #1#)) (SPADLET |n| (CDR #1#)) #1#) NIL)) NIL) (SEQ 
(EXIT (HPUT |$htMacroTable| |s| |n|))))) ((QUOTE T) (|sayBrightly| (MAKESTRING 
"Warning: macro table not found")))) |$htMacroTable|))))) 


> version are you build upon?
> 

2.5.2.

Take care,

> Tim
> address@hidden
> address@hidden
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah